Дан массив целых чисел, состоящий из 15 элементов. Заполнить его с клавиатуры. Найти: сумму положительных элементов, значения которых кратны 3 и 5. 2. Определить, есть ли пара соседних элементов с суммой,равной заданному числу ! ! !

var a,b,c,d,x,x1,x2:real;
begin
  write ('a='); read (a);
  write ('b='); read (b);
  write ('c='); read (c);
  d:=b*b-4*a*c;
  if d<0 then writeln ('NO')
         else if d>0 then
                       begin
                         x1:=(-b+sqrt(d))/(2*a);
                         x2:=(-b-sqrt(d))/(2*a);
                         writeln ('x1=',x1:0:2,' x2=',x2:0:2)
                       end
                     else
                       begin
                         x:=-b/(2*a);
                         writeln ('x=',x);
                       end
end.

У жёсткого диска нет ни максимального, ни минимального объёма - в веке вполне реально было купить жёсткий диск на 40 мегабайт, а сейчас - на 2 и более терабайта. Впрочем, Master Boot Record не поддерживает жёсткие диски размером больше 2 терабайт, а NTFS вроде как не поддерживает разделы жёсткого диска менее 8 мегабайт.
CD: 140 МБ (mini-cd), 702 МБ
DVD: 4.35 ГБ (DVD5), 18 ГБ (DVD18, то есть двухсторонний двухслойный)
флеш-память: опять же нет ни минимума, ни максимума, но где-то между 128 МБ и 128 ГБ.
Blu-Ray: 25 ГБ. Впрочем, технология меняется, вроде позже появятся более вместительные.