I don't know programming, and I could figure out what the above is supposed to caluclate\do.

  begin
    for Employee := 1 to 5 do
        begin
        Write('Enter instructor name: ');
        Read('Name);
        if Name = Mr Dumbass Teacher then
           Write('YOU TURKEY!!!')
        else
           Write('Oh, never mind')
                      end;
   end.