Писал программу. найдите ошибку, . строка: 35 столбец: 5 ошибка: ожидалось else или символ "точка с запятой" program game; uses crt; var a: string; b: integer; c: string; x,y: integer; label m; begin writeln('i want to know your name.'); write('your name: '); read(a); writeln('hello, ', a,'! '); writeln('how old are you? '); write('age: '); read(b); if b< 18 then writeln('huh, you are so young! ') else writeln('huh, you are so old. you will die soon.'); writeln('i know a game.'); writeln('do you want to play with me? '); write('yes or no: '); read(c); if c< > 'yes' then writeln('i don`t give a f*ck! you will play! '); if c='yes' then writeln('let`s play, ', a,'! '); writeln('и так, пора перейти на .'); writeln('правила игры: '); writeln('твоя угадать число, которое я загадал.'); writeln('число от 0 до 10'); writeln('я загадал число. поехали! '); x: =random(0)+10; m: read(y); if x=y then begin writeln('молодец, ', a,'! игра окончена, ты свободен! '); halt; end; if x> y then begin writeln ('не попал! число больше! '); goto m; if x
if x<y then begin writeln('Не попал! Число меньше');goto m;
В начале этих строк begin есть а end нету. Надо добавить.
if x<y then begin writeln('Не попал! Число меньше');goto m; end;