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