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

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

begin

//запрос необходимых характеристик

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

Write(\'Введите количество десятков: \'); Readln(d);

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

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

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

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

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

//вывод

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

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

end.