Найдите ошибки в операторах на языке Pascal.При записи условий на первом месте записывайте переменную.

Program vetv2;

Var x,y:real;

Begin

Writeln('Значение выражения');

Write('Введите x,y');

Readln(x,y);

if 1then x:=x+1; y:=0;

Else x:=0; y:=y+1;

Writeln(x);

Writeln (y);

End.