program HelloWorld;

var
PupilName,Form: String;
Room : integer;
FormLetter: char;


begin
    writeln('Please enter your name');
    Readln(PupilName);


    Writeln('Please enter your form');
    Readln(Form);

    if (Length(Form) = 3)
    then

if(Form[1]+Form[2]='10')
then



    begin
FormLetter :=   Form[3];
end
else
FormLetter :=   Form[1];


    Case FormLetter of

    'H' : Room := 301;
    'K' : Room := 302;
    'R' : Room := 303;
    'S' : Room := 304;
    'V' : Room := 305;

    else

    Writeln('Form not Recognised');
    Readln;

    End;

    Writeln('Hello ',PupilName,' Registration is in Room ',Room);
    Readln;
end.