var abc, a, b, c, result: integer;beginwriteln('Введите трехзначное число: ');readln(abc);
a := abc div 100;b := abc div 10 mod 10;c := abc mod 10;
result := a*(b+c);
writeln('Результат: ', result);end.
var abc, a, b, c, result: integer;
begin
writeln('Введите трехзначное число: ');
readln(abc);
a := abc div 100;
b := abc div 10 mod 10;
c := abc mod 10;
result := a*(b+c);
writeln('Результат: ', result);
end.