fork download
copy 
  1. Program HelloWorld;
  2.  
  3. var seat:array[1..2,1..3] of string;
  4. var i,o:integer;
  5.  
  6. procedure display();
  7. begin
  8. for i:=1 to 2 do
  9. begin
  10.  for o:= 1 to 3 do
  11.   begin
  12.    write((seat[i,o]));
  13.    write(' ');
  14.   end;
  15.  writeln;
  16.  end
  17. end;
  18.  
  19. procedure fill();
  20. begin
  21.  for i:=1 to 2 do
  22.  begin
  23.   for o:=1 to 3 do
  24.    begin
  25.     readln(seat[i,o]);
  26.    end;
  27.  end;
  28. end;
  29.  
  30. begin
  31. fill();
  32. display();
  33. end.
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy
https://ideone.com/4BhT7V
language:
Pascal (fpc 3.0.4)
created:
58 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!