бумажные, голосовые, компьютерные
var D,R:integer;
begin
writeln('Введите значение R: ');
readln(r);
D:=2*R;
writeln('D = ',D);
end.
1.35-16=19-не посещают кружки
2.19-17=2 -посещают биологию
3.9-7=2-посещают математику и биологию
ответ=2 ребят посещают математику и биологию
Если я правильно понял суть задания
var n,m:inreger;
begin
readln(n);
m:=n+1;
writeln(m);
end.