Program nhogdenie_z; uses crt; var x,z:integer; begin writeln('Введите x'); readln(x); if x<5 then<br>begin z:=(x^2)-3; writeln(' Z = ',z); end; else Begin z:=11*x-4; writeln('Z = ',z); end; readkey; end.