Question

Вопрос на 50 балов. Напечатайте программу на языке Turbo Pascal,заранее спасибо

Answer 1

var 
f, x: Real;
begin 
write('X = '); 
Readln(x); 
if Abs(x) <= 1 then f:=Abs(x) 
else if Abs(x) <= 2 then f:=Sqr(x) 
else f:=4; 
Writeln('F(x) = ', f:4:2); 
Readln;
end.