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.

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

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

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