Определить является ли вводимая с клавиатуры последовательность арифметической или геометрической прогрессией. Хранить элементы последовательности в памяти нет необходимости.
uses crt;
var a,b,c,u:real;
begin
u:=8;
readln(a);
readln(b);
repeat
begin
readln(c);
if (c/b)=(b/a) then u:=1;
if (c-b)=(b-a) then u:=2;
a:=b;
b:=c;
end;
until b=0;
if u=1 then writeln ('геометрическая прогрессия');
if u=2 then writeln ('арифметическая прогрессия');
if not ((u=1) or (u=2)) then writeln ('ошибка');
end.