Пишет Встречено 'else', а ожидалось ';'

Рейтинг: -2Ответов: 1Опубликовано: 27.01.2023

Пишет Встречено 'else', а ожидалось ';' я только учусь программированию. Можете описать как это исправить простым кодом

begin
var player := 1;
begin
var sum1 := 0;
var sum2 := 0;
var x : integer;
var (z,y) := random2(1,6);



  if player = 1 then
  repeat
  Println('Ваш ход');
  Println('Сколько раз встрясти стаканчик?:');
  sum1 += (z + y);
  until TryRead(x) and (x > 0) and (x <= 3);
  Print (sum1)
  else
  Println('Мой ход')
 
end.
pascal
Источник: Stack Overflow на русском

Ответы

▲ -1
program so1;
var
    player: integer = 1;
    sum1: integer = 0;
    sum2: integer = 0;
    x, y, z: integer;
begin
    y := 1 + random(7);
    z := 1 + random(7);
    if player = 1 then
    begin
        repeat
            writeln ('Ваш ход');
            writeln ('Сколько раз встрясти стаканчик?:');
            read(x);
            sum1 += (z + y);
        until (x > 0) and (x <= 3);
        write (sum1);
    end
    else
    begin
        writeln ('Мой ход');
    end;
end.