Напишите программу на языке Паскаль для вычисления: а) значения функции y = x2 (в квадрате); б) площади прямоугольника;​

а)

var x,y: integer;

begin

 write('Введите x: ');

 readln(x);

 y: = x*x;

 writeln('y = x^2 = ',y);

end.

б)

var a,b,s: integer;

begin

 write('Введите сторону a: ');

 readln(a);

 write('Введите сторону b: ');

 readln(b);

 s:=a*b;

 writeln('Площадь прямоугольника: ',s);

end.