Изобретение представляет собой большую красную коробку с n лампочками и n переключателями,пронумерованными от 1 до n.при нажатии на переключатель номер k,лампочки с номерами,которые делятся на k(лампочки k,k*2,k* своё состояние,то есть включённые выключаются,а выключенные - включаются.начали последовательно нажимать на переключатели,сколько лампочек будет гореть? нужен код на pascal

1) 50 кг яблок в 2 раза меньше, чем 100 кг яблок, значит, сухофруктов получится в 2 раза меньше - 12 кг.
2) 48 кг сухофруктов в 2 раза больше, чем 24 кг сухофруктов, значит, яблок нужно взять в 2 раза больше - 200 кг.
3) 96 кг сухофруктов в 4 раза больше, чем 24 кг сухофруктов (96/24=4), значит, яблок нужно взять в 4 раза больше, чем для получения 24 кг сухофруктов.
4) 72 кг сухофруктов в 1,5 раза больше, чем  48 кг сухофруктов (72/48=1,5), значит, яблок нужно взять в 1,5 раза больше, чем для получения 48 кг сухофруктов.

Var a, b: integer;
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.