Question

Написать в паскале програму вычисления значения функции у=х в квадрате от веденного х

 

Answer 1

var
  x:integer;
begin
  write('x = ');
  readln(x);
  writeln('y = ', x * x);
end.