Question

Даны 2 числа увеличить 10 раз меньше из них.Написать программу

Answer 1

var a, b:real;

begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
b := b * 10;
writeln('Число: 'b);
end
else
begin
a := a * 10;
writeln('Число: ', a);
end;
end.