Строка комманд это лишнее, а все остальное подходит
Внимание! Если программа не работает, обновите версию PascalABC.NET !
begin
var (a,b):=readreal2('Введите стороны :');
var (c,d):=readreal2('Введите основания :');
var h:=readreal('Введите высоту :');
var S:=((c+d)/2)*h;
writeln('S=',S);
var P:=a+b+c+d;
writeln('P=',P);
end.
Необходимо внимательно рассмотреть и понять условие. В условии стоит знак '>6', т.е. возраст ребёнка должен быть строго больше шести. Если строго больше, значит само число, относительно которого идёт сравнение не удовлетворяет данное условие, т.е. значение логического выражения будет false, значит мы пойдём по ветке отрицания соответственно. В данном случае это 《приходи на следуюший год》. \_(•_•)_/
В а - количество цифр в числе
в b - произведение цифр
то есть число x - трехзначное и произведение его цифр=0,
990 - максимальное из трёхзначных, произведение цифр которых=0
ответ 990