Cоставьте программу которая присвоит переменной х целого типа значение 7 затем вычислите х2
пример:
Program prim2;
uses crt;
var a,b,s:real;
begin
a:=6;
b:=8;
s:=a*b:
write ('площадь прямоугольника равна')
write (s)
end