var........a, b, c: word;begin........write('input file sizes > ');........readln(a, b, c);........if a+b+c <= 1440 then................writeln('войдут на дискету')........else if (a+b <= 1440) and (c <= 1440) or........................(a+c <= 1440) and (b <= 1440) or........................(b+c <= 1440) and (a <= 1440)........then................writeln('войдут на обе дискеты')........else................writeln('не войдут на дискету ни в каком виде ни в каком смысле');end.