1. дана сторона квадрата a. найти его периметр p и площадь s.справка: p = 4∙a, s = a2.

Var p,a:integer;
begin
writeln('Введи сторону');
readln(a);
p:=4*a;
writeln(p);
end.

var s,a:integer;
begin
writeln('Введи сторону');
readln(a);
s:=a*2;
writeln(s);
end.