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

program zz1;

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

begin

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

read(a);  

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

read(b);

if a lt; b // проверяем, если 1-ое число меньше второго, то увеличиваем его в 10 раз, если нет, то в 10 раз увеличиваем 2-ое число

then a:= a * 10

else b:= b * 10;

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

end.