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

vara,b:integer;i:integer;beginfor i:=1 to 3 dobeginwriteln('Pryamougolnik ', i);writeln('vvedite storonu a');readln(a);writeln('vvedite storonu b');readln(b);writeln('perimetr = ', (a+b)*2);end;end.