Где тут ошибка program algorithm; var ivan,gor,otvet1 :integer; begin WriteLn('2*2=?');...

Question

Где тут ошибка program algorithm; var ivan,gor,otvet1 :integer; begin WriteLn('2*2=?'); ReadLn(otvet1); if otvet1=6 then begin gor := random(6); ivan := random(6); if ivan > gor then begin ReadLn (стоит белое летом в огороде морозит); ReadLn(х); if х= 'замок' then begin WriteLn('ПОБЕДА'); end else begin WriteLn('СМЭРТЬ'); end; end else begin WriteLn('СМЭРТЬ'); end; end else begin WriteLn('СМЭРТЬ'); end; end.

Answer 1

Хорошая программа и условие задачи отличное)

Объяви x с типом данных string ( x: string; ) и измени в строке "ReadLn (стоит белое летом в огороде морозит)" на "WriteLn('стоит белое летом в огороде морозит')"