Очень просто я помогаю товарищу с математикой и товарищ очень рад источник информации это человек который знает математику и отправляет ответ через компьютер или телефон
Ответ:
Объяснение:
var i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do write(j);
Writeln();
end;
end.
var
a, p, s : integer;
begin
write('введите сторону квадрата a=');
readln(a);
p := a*4;
s := a*a;
writeln('периметр P=', p);
writeln('площадь S=', s);
end.
См фото
=====================================