uses crt;
var ask,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.