Подсчитываниекол-во кругов ученика.
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.