1. Составить программу нахождения значения функции по заданному х.
Программу запустить три раза, проверив каждый интервал.

VarX:real;BeginWrite('X = ');ReadLn(X);if abs(X)<=2 then Write('Y = ',X*X)else Write('Y = ',1);End.или так:VarX,Y:real;BeginWrite('X = ');ReadLn(X);if abs(X)<=2 then Y:=X*Xelse Y:=1;WriteLn('Y = ',Y)End.Первый запуск:X = 1.3Y = 1.69Второй:X = 2.71828Y = 1Третий:X = -3.141592Y = 1