Question

1. Дана сторона квадрата a. Найти его периметр P и площадь S.Справка: P = 4∙a, S = a2.

Answer 1

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.