Найти сумму и произведение всех нечетных двухзначных чисел (алгоритм и программу)

Program z_number; uses crt; var pr,i: integer; begin clrscr; pr: =1; i: =11; {первое двузначное нечетное число} repeat pr: =pr*i; i: =i+2; until(i> 100); writeln('произведение двузначных нечетных чисел ',pr); readln; end.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

 

алгоритм-это организованная последовательность действий.

свойства алгоритма: дискретность, , массовость, детерминированность, конечность.

алгоритм:

1)взять линейку

2)найти длинный всех сторон

3)сложить все три строны треугольника

4)записать ответ

(извиняюсь если алгоритм не правильно написан, с не дружу)