Составить блок-схему арифметической и геометрической прогрессий.

Любую сделайте. Помогите

Определить является ли вводимая с клавиатуры последовательность арифметической или геометрической прогрессией. Хранить элементы последовательности в памяти нет необходимости.

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.