Запишите значение переменной k, полученное в результате работы следующей программы

Задача на математику, вообще :)

Скорость заполнения найдём для начала:
А - 1 ГБ/мес
В - 1/2 ГБ/мес
С - 1/3 ГБ/мес
D - 1/6 ГБ/мес

Для удобство вычисления все дроби приведем к одному общему знаменателю:
А - 6/6 ГБ/мес
B - 3/6 ГБ/мес
С - 2/6 ГБ/мес
D - 1/6 ГБ/мес
Легко складываем и получаем 6+3+2+1/6 ГБ/мес = 12/6 ГБ/мес = 2 ГБ/мес.

Так как у нас и время равно одному месяцу, 2 * 1 = 2 ГБ.

мда поколение егэ

А где мешки?Поставь фотографию или напиши слова.

Program Program;
var a, b, c, d: Integer;
begin
readln(a, b, c, d);
if a<b and a<c and a<d then
begin
writeln(a);
end;
if b<a and b<c and c<d then
begin
writeln(b);
end;
if d<a and d<b and d<c then
begin
writeln(d);
end
else
begin
writeln(c);
end;
end.

Ой, я там единицу забыла прибавить, там 107