дано 3 натуральных числа написать программу увеличивающую меньшее из чисел в 10 раз в паскале

program zz1;

var a, b:integer; / / задаем переменные целого типа

begin

write (' введите первое заданное число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе заданное число '); / / вводим с клавиатуры второе число

read (b);

if a < b / / проверяем, если первое число меньше второго, то увеличиваем его в десять раз, если нет, то в десять раз увеличиваем второе число

then a: = a * 10

else b: = b * 10;

write (' Полученные числа а = ', a,' b = ', b); / / выводим ответ

end.