var
counter_1:integer;
counter_2:integer;
sstart:string;
begin
writeLn('введите команду start для запуска проверки компьютера на сетевые вирусы ');
while  sstart <> 'start' do
begin
readln(sstart);
end;
while counter_1 < 100 do
begin
writeLn('Нахождение сетевых червей ', counter_1,' %');
writeLn('Количество проверенных объектов ', counter_2);
counter_1 := counter_1 + 1;
counter_2 := counter_2 + random(1,10);
sleep(1000);
end;
writeLn('Проверка завершена успешно');
readln();
end.