Question

Написать программу вычисления значения переменной y.
решите пожалуйста 1 задачку.. как можно скорее.. спасибо зарание!

Answer 1

uses crt;
var y, m:real;
begin
write('m = '); read(m);
if m<-20 then y:=4*m+((m+1)/(2*m+2));
if m>=-20 then y:=sqr(m)+2*m;
write(y);
end.