Var
a, b, c :integer;
Begin
Write('Vvedite a i b :'); Readln(a,b);
c:=2*(a+b);
Writeln('Perimetr=',c);
Readln;
End.
Объяснение:
Изззи
Я смог
