fork download
  1. program IncrementNumber;
  2. var
  3. n: Integer;
  4. begin
  5. n := 0;
  6. writeln('Сан: ', n);
  7.  
  8. repeat
  9. writeln('Келесіге өту үшін Enter басыңыз...');
  10. readln;
  11. n := n + 1;
  12. writeln('Сан: ', n);
  13. until n >= 10; // тоқтау шарты, қажет болса өзгерт
  14. end.
Success #stdin #stdout 0s 5312KB
stdin
Standard input is empty
stdout
Сан: 0
Келесіге өту үшін Enter басыңыз...
Сан: 1
Келесіге өту үшін Enter басыңыз...
Сан: 2
Келесіге өту үшін Enter басыңыз...
Сан: 3
Келесіге өту үшін Enter басыңыз...
Сан: 4
Келесіге өту үшін Enter басыңыз...
Сан: 5
Келесіге өту үшін Enter басыңыз...
Сан: 6
Келесіге өту үшін Enter басыңыз...
Сан: 7
Келесіге өту үшін Enter басыңыз...
Сан: 8
Келесіге өту үшін Enter басыңыз...
Сан: 9
Келесіге өту үшін Enter басыңыз...
Сан: 10