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

от души)

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.