Задание

Написать программу нахождения периметра параллелограмма по известным сторонам b и n (b и n — целые числа, вводимые с клавиатуры).

program perimetr;

var

b,n,p:integer;

begin

write('b=');

readln(b);

write('n=');

readln(n);

p:=2*(b+n);

writeln('p=',p);

readln;

end.

program perimetr;

var

begin

write('b=');

readln(b);

write('n=');

readln(n);

p:=2*(b+n);

writeln('p=',p);

readln;

end.

program perimetr;

var

b,n,p:integer;

begin

write('b=');

readln(b);

write('n=');

readln(n);

writeln('p=',p);

readln;

end.