Question

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

Answer 1

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