Составьте в словесности или графической формах алгоритм определение периметра прямоугольника

Если нужен паскаль то вот:

var a, b: integer;

begin

writeln ('Введите сторону a');

readln (a);

writeln ('Введите сторону b');

readln (b);

writeln;

writeln ('Периметр=', (a+b) * 2);

readln;

end.