Составьте программу для вычисления периметра прямоугольника , нарисовать блок схему.

program z1;
var a,b,p:integer;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
p:=(a+b)*2;
writeln('Периметр равен ',p);
end.

Спасибо