program project1 uses crt var integer begin Write Введите ReadLn Write

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
program project1;
uses crt;
var
x: integer;
begin
Write('Введите X: ');
ReadLn(x);
Write('Для x = ', x, ' подходит функция ');
if x < -1 then WriteLn('y = 1/x^2, y = ', 1/(x*x));
if (x >= -1) and (x <= 2) then WriteLn('y = x^2, y = ', x*x);
if x > 2 then WriteLn('y = 4');
ReadKey();
end.