<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var sk:=ReadAllText('koi8.txt'); var a:=ReadlnString.ToWords; foreach var w in a do begin var p:=Pos(w,sk); if p>0 then begin p:=Pos(' ',sk,p+1); if p>0 then Write(sk[p+1]) else Write('?') end else Write('?') end; Writeln end.
Var b; integer; begin writeln ("В каком году появились первые ЭВМ?''); readln (b); if b=1943 then writeln ('Вы правы!') else writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>'); end.