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

Определить является ли вводимая с клавиатуры последовательность арифметической или геометрической прогрессией. Хранить элементы последовательности в памяти нет необходимости.  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.