PROGRAM PROGRAM11;
USES
  WinCrt;
VAR
  i : INTEGER;
BEGIN
  WRITELN('Od 4 do 10 unazad');
  i := 10; 
  WHILE i >= 4 DO
    BEGIN
      WRITELN('i=',i );
      i := i - 1;
    END;
END.