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

Var
a,b:integer;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Pryamougolnik ', i);
writeln('vvedite storonu a');
readln(a);
writeln('vvedite storonu b');
readln(b);
writeln('perimetr = ', (a+b)*2);
end;
end.