Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля)

program zz1;

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

begin

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

read (a);

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

read (b);

if a > b then a:=a - b else b:=b - a; / / проверяем, если первое число больше второго, то от первого отнимаем второе число, в противном случае, если второе больше первого, то от второго числа отнимаем первое

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

end.