Напишите программу на Pascal для решения системы уравнений:

program test;uses crt;vary,x:integer;begintextcolor(11);writeln('Введите x: ');readln(x);if x>2 then beginy:=x*x;writeln('Ответ: ', y)endelsebeginy:=4;writeln('Ответ: ', y);end;end.