Пользователь вводит числа - получается последовательность. если пользователь ввел 0, то программа прекращает свое действие, сразу выдает результат. т. е. 0 - конец последовательности. определить верно ли утверждение: "в этой последовательности четное количество элементов. значение четного элемента последовательности является квадратом стоящего перед ним нечетного числа"

Var
  n,p,c:integer;
  f:boolean;
begin
c:=1;  //признак четности числа членов последовательности
writeln('Вводите члены последовательности');
repeat
  readln(n);
  if n<>0 then
    begin
    c:=-c;
    if (p*p=n) and (c=1) then f:=true else f:=false;
    p:=n;
    end;
  until n=0;
if f=true then write('Да, верно') else write('Нет, неверно');
end.