Напишите программу на языке паскаля, определяющую периметр прямоугольника.

Var a,b,p: integer;
begin
 write('Длинна: '); readln(a);
 write('Ширина: '); readln(b);
 p:=2*a+2*b;
 write('Периметр равен: ',p);
end.