Текст программы:
Program Virus;
Uses crt;
Var x: array [1..100] of integer;
Var l: array [1..3] of integer;
Var a,b,c,d,k,m,i: integer;
Begin;
write('Введите размеры поля m<=100 m='); read(m);
write('Количество вирусов k<=3 k='); read(k);
write('Введите номера заражённых полей ');
for i:=1 to k do begin
write ('l[',i,']=');
readln ();
end;
a:=l[1]-1;
b:=m-l[k];
if a>b then c:=a else c:=b;
d:=trunc((l[k]
-l[k-1])/2)+1;
if d>c then c:=d;
write('Время заражения ',c);
end.