В чем смысл ошибки?
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