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

var a, n, p :integer;
begin
write('a =');
readln(a);
write('n =');
readln(n);
p:=2*(a+n);
writeln('Периметр = ',p);
end.

Пример:
a = 8
n = 5
Периметр = 26

Или так:
begin
  var a:=ReadInteger('a = ');
  var n:=ReadInteger('n = ');
  writeln('Периметр = ',2*(a+n));
end.

Пример:
a = 8
n = 5
Периметр = 26