fork download
copy 
  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
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Сан: 0
Келесіге өту үшін Enter басыңыз...
Сан: 1
Келесіге өту үшін Enter басыңыз...
Сан: 2
Келесіге өту үшін Enter басыңыз...
Сан: 3
Келесіге өту үшін Enter басыңыз...
Сан: 4
Келесіге өту үшін Enter басыңыз...
Сан: 5
Келесіге өту үшін Enter басыңыз...
Сан: 6
Келесіге өту үшін Enter басыңыз...
Сан: 7
Келесіге өту үшін Enter басыңыз...
Сан: 8
Келесіге өту үшін Enter басыңыз...
Сан: 9
Келесіге өту үшін Enter басыңыз...
Сан: 10
https://ideone.com/eaBJHP
language:
Pascal (fpc 3.0.4)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!