найти и исправить ошибки в записи оператора ветвления if x>=y then begin x:=0;y:=0;
else end; write(z)

Если х>=у, то пишет х=0 и у=0Если не так, то конец; пишем z.Правильно:If x>=y;Then;Beginx=0, y=0;ElseWrite z;End.