Найти значение 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.