Задания на Delphi

[BrosJke]

Здравствуйте!
Решите пожалуйста, пару заданий.

1) Дано двузначное число. Определить:

a) является ли сумма его цифр двузначным числом;

б) больше ли числа А сумма его цифр.

2) Вычислить дробную часть среднего геометрического трех введенных с клавиатуры чисел.

3) Составить программу нахождения суммы двух наибольших из трех различных чисел.

[p51x]

Было недавно. В поиск.

[Chudo4258]

1) Дано двузначное число. Определить:

a) является ли сумма его цифр двузначным числом;

readln(n);
x:=(n div 10)+(n mod 10);
if x div 10 <> 0 then writeln('Двузначное')
                      else  writeln('Однозначное');

б) больше ли числа А сумма его цифр.

readln(n);
readln(a);
x:=(n div 10)+(n mod 10);
if x > a then writeln('Да')
                      else  writeln('Нет');

2) Вычислить дробную часть среднего геометрического трех введенных с клавиатуры чисел.

readln(a,b,c);
x:=Frac(exp(ln(a*b*c)/3))

[DoDge_VipeR]

больше ли числа А сумма его цифр.

if (n div 10)+(n mod 10) > a then writeln('Больше')
                      else  writeln('Не больше');

[ChEaTeR-abc]

А что нужно было в консоле?
Я сделал в окне.
Не слишком компактно, но зато с коментариями