Cоставьте программку которая присвоит переменной х целого типа значение 7 затем

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