uses crt-

varask,number:integer-

label 1-

begin-

clrscr-

1:

writeln(‘Пробежишь еще кружочек ? (1-да,2-нет)’)-

readln(ask)-

IF ask = 1 THEN

begin

number := number +1- clrscr- GOTO 1-

end-

IF ask = 2 THEN

begin

writeln(‘На нет и суда нет. Ты пробежал ‘, number, ‘ кругов’)-

halt-

end-

end.