Var
a,b,c:integer;
Begin
write('Введите a,b,c (через пробел)');
Readln(a,b,c);
Write('Самое большое из них ');
if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.
Вариант с небольшой автоматизацией
Около 15 дней.
Если посчитать сколько каждый вирус в день повреждает, можно высчитать сумму сколько места съедают все вирусы в день.
А=34мб
Б=17мб
С=11мб
Д=5,6мб
Все они в сумме съедают в день 68мб в день. Делим 1гб (1024 мб) на 68 мб.
1024:68=15
var
a : array [1..1000] of integer;
i, n, sum : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then inc (sum, a[i]);
writeln (sum);
end.