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

var a,m,P:integer;

begin

readln(a,m);

P:=(a+m)*2;

writeln(P);

end.