Решение в прикрепленном файле ниже:
10000000 ................
Var i,n:integer;
begin
read(n);
for i:=1 to n do
write(i:5);
<span>end.
если в паскале то вот.</span>
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в кводрат
конец
var a,b, P: real;
begin
write(' Введите длины сторон прямоугольника: ');
readln(a,b);
P:=2*(a+b);
write('периметр (P) = ',P);
readln;
end.