Исправьте пожалуйста! Исправьте пожалуйста программу чтобы при вводе нуля программа писала "Введите число больше нуля",и не выходила ошибка, а продолжала работать. Сам пытался, не получилось. Program qrt; var x,y,z,q: real; begin WriteLn('Введите X ', x); Readln(x); WriteLn ('Введите Y ', y); Readln(y); WriteLn ('Введите Z ', z); Readln(z); z:=Abs((3*sqr(x)+sin(y)/sqrt(z))-cos(x)); if z=0 then begin writeln ('Введите число больше 0 = ',q); end; WriteLn('Ответ=', z); End.