var x: integer;beginx:= 1000;while x>0 do beginwrite (x, '-7=');x:= x-7writeln(x);delay(50);end;end. Встречено 'writeln', а ожидалось ';' , как пофиксить

1. Забыли ; перед Writeln(x);

2. Забыли подключить модуль CRT.

-----------------------------------------------------------

Program Brainly;

Uses CRT;

Var x: integer;

Begin

x:= 1000;

While x > 0 do begin

Write (x,'-7:= ');

x:= x - 7;

Writeln(x);

Delay(50);

end;

end.

-----------------------------------------------------------

Фрагмент программы (рисунок).

-----------------------------------------------------------