программирование диалога с компьютером

Ответ от Leprosy[гуру]
var s,kod: string; i,res,ch1,ch2: integer; begin randomize; writeln(\'Как твоё имя? \'); readln(s); writeln(\'Привет, \'+s); writeln(\'Реши пример\'); i:=random(2); if i=1 then kod:=\'+\' else kod:=\'-\'; ch1:=random(99); ch2:=random(99); writeln(ch1,kod,ch2); readln(res); if (res=ch1+ch2) and (kod=\'+\') then writeln(\'Молодец, правильно\') else if (res=ch1-ch2) and (kod=\'-\') then writeln(\'Молодец, правильно\') else writeln(\'плохо, перерешай пример\'); end.