Написать программу, согласно варианту, которая по введенному значению аргумента вычисляет зна-чение функции, заданной в виде графика и выводит его на экран. Параметр R вводится с клавиатуры.

Var
x,nb,nm,z,xm,xb : longint;
h,g,k : integer;
begin
writeln('Введите количество больших коробок.');
readln(nb);
writeln('Введите количество маленьких коробок.');
readln(nm);
writeln('Введите количество товара в больших коробках.');
readln(xb);
writeln('Введите количество товара в маленьких коробках.');
readln(xm);
writeln('Сколько товара помещается в вагон?');
readln(x);
z:= nb*xb +nm*xm;
if z <= x then
writeln('Все изделия поместятся в один вагон')
else
begin
h := z div x;
writeln('количество вагонов для погрузки всех товаров = ',h);
end;
g:= z div nb;k:= z div nm;
writeln ('освободиться ',g,' больших или ',k,' маленьких коробок');
end. 

15 учеников14 любят ходить в кинотеатр. триллер- 6 учеников,  фэнтези- 5 учеников,комедию- 10
1 ученик смотрит только триллеры,2 ученика смотрят только фэнтези, 5 учеников смотрят только комедии
3 ученика смотрят и триллеры  и комедии1 ученик –и фэнтези, и комедиириллеры и фэнтези не смотрит ни один ученик

1 только триллеры 2 только фэнтези5 только комедии
15 - 1 - 8 = 6
6 человек 

5 триллер3 фэнтези5 комедии
1 ученик –и фэнтези, и комедии  т.е.осталось 
5 триллер2 фэнтези4 комедии
3 ученика смотрят и триллеры  и комедиит.е. осталось
2 триллер2 фэнтези 1 комедии
т.е. получается
1 смотрит все1 смотрит триллер1 смотрит фэнтези+1+3и + те 8 учеников которые смотрят1 только триллеры 2 только фэнтези5 только комедии