Тихий - Евразия, Австралия, Северная Америка, Южная Америка, Антарктида.
Индийский - Африка, Австралия, Евразия, Антарктида.
(Тихий океан и Индийский океан вместе омывают - Евразия, Австралия, Антарктида)
a = "1"
b = "2"
n = 3
(a + b) * n = "12"*3 = "121212"
a*n + b*n = "1"*3 + "2"*3 = "111222"
Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b