Написать программу нахождения периметра параллелограмма по известным сторонам a и m (a и m — целые числа, вводимые с клавиатуры)
var a,m,P:integer;
begin
readln(a,m);
P:=(a+m)*2;
writeln(P);
end.