{*** F.5CA Winnie Leung (21) ***}
{*** Write a program using 'for loop' to read 3 sets of data
     (name, graduation year, email address) from a text file ***}
program Readlist (input, output);
uses wincrt;
var Inputfile :text;
    strng :string;
    n :integer;
begin
  writeln('NAME       GRADUATION YEAR       EMAIL ADDRESS');
  assign(Inputfile,'data4.txt');
  reset(Inputfile);
  for n:=1 to 3 do
  begin
    readln(Inputfile, strng);
    writeln(strng);
  end;
  close(Inputfile)
end.