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

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