Являются ли вводимые с клавиатуры числа a, b , c членами

Программа определяет, одинаковы ли разности меж следующими членами и одинаковы ли приватные этих членов. Если разности одинаковы, то числа - члены арифметической прогрессии, если частные равны - геометрической.
Если не равны ни разности, ни приватные, не являются членами какой-или прогрессии.

var
a, b, c: real;

begin
readln(a);
readln(b);
readln(c);

if c/b = b/a then
writeln(Числа , a, , , b, , , c, являются членами геометрической прогрессии.)
else if c-b = b-a then
writeln(Числа , a, , , b, , , c, являются членами арифметической прогрессии.)
else writeln(Числа , a, , , b, , , c, не являются членами прогрессий.);
end.