Составить программу для вычисления функции.

y={x^2, если х<2

√х, если х ≥ 2

0, если х=2

Задание не совсем верно построено. Скорее всего вторая проверка должна быть строго больше двух, однако вот решение:

program ff;

var

y, x:real;

begin

writeln ('Введите x') ;

readln (x) ;

if x<2 then y:=sqr (x) ;

if x>=2 then y:=sqrt (x) ;

if x=2 then y:=0;

writeln ('y=', y) ;

readln () ;

end.