ПАСКАЛЬдана сторона квадрата a. составьте программу, которая вычисляет его площадь S и периметр P и выводит результат на экран

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