Ваш друг предлагает вам переписать отснятый им видеофильм. из носителей информации у вас есть: компакт-диск объемом 650 мб, дискета объемом 1мб и флеш-накопитель объемом 1000мб. напишите программу, перечисляющую все носители, на которые полностью поместится фильм. объем видеофайла задается в мегабайтах.

Var
d:integer;
const
a=650;
b=1;
c=1000;
begin
write('Введите объём видеофайла в мегабайтах: ');
readln(d);
if d>a then write('Видеофайл не помещается на  носитель информации"А"!',#10) else
writeln('Памяти хватает для записи на носитель "А"! ',#10);
if d>b then write('Видеофайл не помещается на  носитель информации"B"!',#10) else
writeln('Памяти хватает для записи на носитель "B"! ',#10);
if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else
writeln('Памяти хватает для записи на носитель "C"! ',#10);
readln;
end.