program Noname8;
var
    name : array[1..10] of string;
    class : array[1..10] of string;
    no : array[1..10] of integer;
    i,j : integer;
begin
    for i := 1 to 10 do
    begin
    write('What is your name?');
    readln(name[i]);
    write('What is your class?');
    readln(class[i]);
    write('What is your class number?');
    readln(no[i]);
    writeln();
    end;
    for i := 1 to 10 do
     begin
        writeln(' Name: ',name[i],'Class: ',class[i],' No: ',no[i]);
        end;
     readln();
end.