Вчем смысл ошибки? uses crt; var g: integer; x,y,z : real; begin textbackground (0); textcolor (15); clrscr; readln (x,y); readln (g); case g of 1: z: = (sin(x)*cos(x))/2; -1: z: =2*x+x*y+0.5; -2: z: =(2+sqr(cos)*x); : нет перегруженной подпрограммы с такими типами параметров else writeln ('1'); end; writeln (z); readln end.
Скорее всего ```var``` это ошибка или else writein по пробуй поменять на if writein