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

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