Склавиатуры вводится число-длина стороны квадрата. вычислите и выведите площадь и периметр квадрата.

Var a:integer;
Begin
writeln('Введите сторону квадрата');
readln(a);
writeln('Периметр равен =',a*4);
writeln('Площадь равна =',a*a);
end.