Блок-схема алгоритма - в прилагаемом файле.
Var
i, n: integer;
begin
readln(n);
for i := 10 to 99 do
if (i mod 10 + i div 10 = n) then
writeln(i);
end.
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.