Выдаёт ошибку Program1.pas(4) : Встречено '=', а ожидался оператор USES CRT;
var x: integer;
begin
x: =1000;
green x>0 do
begin
write (x, "-7=");
x: =x-7;
writeln (x);
delay((50);
end;
writeln (" я учился ");
end.

Много косяков маленьких, просто внимательнее нужно, в 5 строке вообще непонятно что написано

Исправленный код:

USES CRT;

var x: integer;

begin

x:=1000;

while x>0 do

begin

write(x,'-7=');

x:=x-7;

writeln(x);

delay((50));

end;

writeln (' я учился ');

end.