Являются ли вводимые с клавиатуры числа 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.