Как решить задачу на Pascal

 Program P1; 

uses crt; 

const a=3; 

      i=2; 

      x=1; 

      y=2.7; 

var m: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значение переменной m (только число), после чего нажмите клавишу Enter. Если вводите дробное значение, то целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите значение переменной m: m='); 

readln (m); 

if (m=0) or (m=1) or (m=2) then writeln ('Ответ: z=', 0.5*a+cos (y)/a :0:2) else 

if (m=3) or (m=5) or (m=7) then writeln ('Ответ: z=', sqr (y)-i :0:2) else 

if m=4 then writeln ('Ответ: z=', x+sqr (x)/2-1/3 :0:2) else writeln ('Ответ: Нет решений.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

 Program P1; 

uses crt; 

var m: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значение переменной m (только число), после чего нажмите клавишу Enter. Если вводите дробное значение, то целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите значение переменной m: m='); 

readln (m); 

if (m=0) or (m=1) or (m=2) then writeln ('Ответ: z=', 0.5*3+cos (2.7)/3 :0:2) else 

if (m=3) or (m=5) or (m=7) then writeln ('Ответ: z=', sqr (2.7)-2 :0:2) else 

if m=4 then writeln ('Ответ: z=', 1.5-1/3 :0:2) else writeln ('Ответ: Нет решений.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.