Ввести два числа. Увеличить первое число на 10, если оно меньше второго или уменьшить на 10, если больше

program zz1;

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

begin

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

read (a);

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

read (b);

if a < b / / проверяем, если первое число больше второго, то

then a:=a + 10 / / увеличиваем первое число на десять

else a:=a - 10; / / в противном случае, уменьшаем первое число на десять

write (' первое число = ', a, ' второе число = ', b); / / выводим ответ

end.