program raf105;
var ab,a: integer;
begin
write('Введите двузначное число: ');
readln(ab);
a:= ab div 10;
a:= a * 5;
writeln('Результат: ',a);
end.
program raf105;
var ab,a: integer;
begin
write('Введите двузначное число: ');
readln(ab);
a:= ab div 10;
a:= a * 5;
writeln('Результат: ',a);
end.
PascalABC 3.4.2