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

var a,n,p:integer;beginreadln(a);readln(n);p:=(a+n)*2;writeln(p);end.

var a, n, p :integer;beginwrite('a =');readln(a);write('n =');readln(n);p:=2*(a+n);writeln('Периметр = ',p);end.Пример:a = 8n = 5Периметр = 26Или так:begin  var a:=ReadInteger('a = ');  var n:=ReadInteger('n = ');  writeln('Периметр = ',2*(a+n));end.Пример:a = 8n = 5Периметр = 26