Можно поставить "вечный цикл" с задержкой и перерисовывать ему глаза раз в секунду. Самый простой способ, который пришёл в голову.
Исходник в приложении к ответу.
Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
<span>end.</span>
1.В марте у нас будут каникулы.2.Это был великан.3.В дороге Громова застал буран.4.На Камчатек много гейзеров.5.Караван двигался по барханам.6.Вдали появились айсберги.7.Однажды мы заблудились в лесу.8.Мы возобновили переписку.9.Муму привязалась к Герасиму.10.Месяц спутя геологи уехали.
Солнечная,кирпичная,удачная,вечная,дачная
Кол - во символов в тексте - 150 * 1024 * 8 / 16 = 76800
Кол - во символов на странице - 76800 / 120 = 640
кол - во символов в 1 строке - 640 / 80 = 8