Как написать в pascal abc программу которая определяет является ли последовательность арифметической прогрессией

Var a,b,c: integer; Begin Writeln ('vvedite perviy chlen posledovatelnosty'); Readln (a); Writeln (' vvedite vtoroy. Chlen posl'); Readln (b); Writeln (' vvedite tretiy chlen posledovatelnosty '); Readln(c); While a:=(c-b)