program z1;
var a,z: integer;
begin
write ('a = ');
read (a);
if a > 2 then z := a + a * a * 2
else z := 7 - sqr(a) * a;
write ('z = ',z)
end.
Объяснение:
Смотри картинку
