35-6=29
29-20=9 любят только кино
15-9=6 любят и кино, и дискотеки
Var
a: integer;
begin
a := 0;
writeln('enter the value: ');
read(a);
if a < 0 then
write('negative')
else
write('positive');
if a mod 2 = 0 then
write(' even')
else
write(' odd');
end.
<span>b := a div 10 = 12
</span><span>b := b / 4 + 2 = 5
</span>b := b * 25 +2 = 127
a:= a + b = 252
a = 252 ; b = 127
1) нарисовать 1 большой круг
2) отступив 5 миллиметров и сделать второй круг
3) примерно по середине разделить воображаемой линией
4) отступив от линии одинаковое пространство, нарисовать маленькие кружки
5) раскрасить