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

var m, b:integer;beginwriteln ('Введите стороны b и m');write ('Введите сторону b'); readln (b);write ('Введите сторону m'); readln (m);writeln;writeln ('Периметр = ', (a+b)*2);readln;end.