написать программу в Паскале: Даны три числа А, В, С. Определить являются ли они последовательными членами арифметической прогрессии. Найти их разность.

program zz1;

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

begin

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

read (a);

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

read (b);

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

read (c);

if (a-b) = (b-c) then writeln (' являются последовательными членами арифметической прогрессии ') / / выводим ответ

else writeln (' не являются последовательными членами арифметической прогрессии');

write (' разность трех заданных чисел = ', a - b - c);

end.