Организация ввода-вывода данных

var
  n,i:integer;
begin
  writeln('Введите размер фигуры:');readln(n);
  for i:=1 to n do write(i);writeln;
  for i:=2 to n-1 do writeln(i,i:i-1,n-i+1:n-i);
  for i:=n downto 1 do write(i);
end.

begin
  var n := ReadLnInteger('Размер фигуры от 1 до 9 :');
  if n = 1 then
    WriteLn('1')
  else
    begin
      for var i := 1 to n do Write(i); WriteLn;
      for var i := 2 to n-1 do WriteLn(i, i:i-1, n-i+1:n-i);
      for var i := n downto 1 do Write(i); WriteLn;
    end;
end.

begin
  var n := ReadLnInteger('Размер фигуры от 1 до 9 :');
  if n = 1 then
    WriteLn('1')
  else
    begin
      for var i := 1 to n do Write(i); Write(1:n-1); WriteLn;
      for var i := 2 to n-1 do WriteLn(i, i:i-1, n-i+1:n-i, i:n-i, i:i-1);
      for var i := n downto 1 do Write(i); for var i := 2 to n do Write(i); WriteLn;
    end;
end.