Написать программку, которая запрашивает кол-во сотен, кол-во 10-ов, кол-во единиц, потом

Var s,d,e,result,sum: integer;

begin

//запрос нужных черт

Write(Введите количество сотен: ); Readln(s);

Write(Введите количество 10-ов: ); Readln(d);

Write(Введите количество единиц: ); Readln(e);

//получение результирующего числа

result:=s*100+d*10+e;

//получение суммы квадратов цифр числа

sum:=s*s+d*d+e*e;

//вывод

Writeln (Результирующее число - , result);

Writeln (Сумма квадратов его цифр - , sum);

end.