Найти значение Y, которое равно квадрату заданного числа Х, если Х>2, и равно 4 в остальных случаях.

Program programma;
Uses crt;

var y,x: integer;

Begin clrscr;
write('Введите х = ');
readln(x);

if x>2 then y:=sqr(x)
else y:=4;

writeln('Y = ', y);
end.