uses crt;
var
i:integer;
begin
i:=1000;
while i>0 do
writeln(i,' - 7 = ', i-7 );
i-=7;
end;
writeln('я гуль');
end.
uses crt;
var
i:integer;
begin
i:=1000;
while i>0 do
begin
writeln(i,' - 7 = ', i-7 );
i-=7;
end;
writeln('я гуль');
end.