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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.