Верна ли следующая программа? Если да, то сколько операторов она содержит, если нет, то...

Question

Верна ли следующая программа? Если да, то сколько операторов она содержит, если нет, то почему: var x,y:integer; begin readln(y);; x:=0; if x>0 then; writeln(x,y); readln; end

Answer 1

Var x, y: integer;
 begin
  readln(y);
  x := 0;
  if x>0 then (двоеточие не надо)
  writeln(x, y);
  end.