Ответ:

program z1;

var m,a,i,x:integer;

y,z:real;

begin

a:=3;

y:=2.7;

i:=2;

x:=1;

z:=0;

write('m = ');

readln(m);

case m of

0,1,2: z:=0.5*a+cos(y)/a;

3,5,7: z:=sqr(y)-i;

4: z:=x+x*x/2-1/3

end;

write('z = ',z:0:3)

end.

Объяснение:

Если m не равно 0, 1, 2, 3, 4, 5 или 7 значение z не вычисляется.