Написать программу нахождения периметра параллелограмма по известным сторонам b и h (b и h — целые числа, вводимые с клавиатуры).
1)program perimetr;
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
writeln('p=',p);
readln;
end.
2)program perimetr;
var
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.
3)program perimetr;
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.

3)program perimetr;varb,h,p:integer;beginwrite('b=');readln(b);write('h=');readln(h);p:=2*(b+h);writeln('p=',p);readln;end.Пример:b=5h=4p=18