uses crt; var I:integer; begin clrscr; for I:=1 to 100 do begin clrscr; write('sayıyor...',I); delay(1000); end; readln;