Написать в паскале програму вычисления значения функции у=х в квадрате от веденного х
var x:integer; begin write('x = '); readln(x); writeln('y = ', x * x); end.