LARI DLM 10 PUTARAN (PASCAL)

uses crt;

var
l,b :integer;
begin
clrscr;
GOTOXY(32,2);writeLN('LARI DALAM 10 PUTARAN');
writeLN(' ');
l:=1;
b:=0;
while l<10 do
begin b:=b+1;
l:=l+1;
Write('PUTARAN KE :',l);
write(' ');
writeln('MENDAPATKAN BOLA :',b);
end;
readln(l);
end.