Настроение сейчас - норм, чо

То, что я ощущаю себя /b/итардом, это полбеды.
Моя жизнь подчинена алгоритму!
Если писать это на паскале, то примерно так будет:


program 1;
var a:char;
begin
write ('where's Drew?');
read (a)
if a='in internet' then writeln ('Drew is in internets');
if a='in dreams' then writeln ('Drew sleeps');
if a><'in internet' or a><'in dreams' then writeln ('Drew in da school') else writeln ('something wrong');
readln (a)
end.

как-то так.