Program Pętla;
var i,s:longint;
Begin
    i: =0;
    s: =0;
    repeat
    //writeln('wykonuje pętle');
    i: =,+1;
    s: =s+1;
    until ,10;

end.