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

var a,b,c,d:real;beginreadln(a,b,c);if a-b=b-c thenbegind:=b-a;writeln(d);endelsewriteln('No');end.