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