Métodos Numéricos

Var
h, m : shortint;
sn : char;
Begin
Writeln ('Que horas são?')
Read (h);
Write (':')
Readln (m);
Writeln ('O chato do prof das aulas práticas de métodos numéricos já chegou?');
Readln (sn);
Repeat
If (sn = 's') or (sn = 'S') then
Writeln ('LOL PWND');
If (sn = 'n') or (sn = 'N') then
Writeln ('Baza daí, estás parvo ou quê?? Já são ',h,':',m)
Until sn in ['s','S','n','N'];
End.




{Nesta altura são 9:41, o prof está... 41 minutos atrasado, eu odeio esta disciplina e não curto programar em python, como o programa escrito em linguagem PASCAL pode demonstrar. Porque não bazo daqui? Resposta: nesta altura não me apetece ir coçá-los sozinho para a 1.09. }