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

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

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

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

Program ;

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.

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

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

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