Question

Написать код программы, которая будет вычислять периметр фигуры.
Program Perimeter;
Var
Begin
Writeln
Readln
End.

Answer 1

program Perimeter;

var a, b, P: integer;

begin

write('a=');

readln(a);

write('b=');

readln(b);

P:=(a+b)*2;

writeln('P=', P);

end.