Составить программу для вычисления функции.
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.