вычислить и вывести значения периметра 30 прямоугольников при различных значениях их сторон (А>0 и B>0), Pascal.

program zz1;

var i, a, b, P:integer; / / задаем переменные целого типа

begin

for i:=1 to 30 do / / организуем цикл на 30 повторений

begin

a:=random (101); / / получаем длину прямоугольника случайным образом от 0 до 100

b:=random (101); / / получаем ширину прямоугольника случайным образом 0 до 100

P:=2*a + 2*b; / / вычисляем периметр прямоугольника по известной формуле

writeln (' Периметр ', i,'-го прямоугольника = ', P,' при сторонах a=', a,' b=', b); / / выводим ответ

end;

end.