2) writeln (copy(s1,2,6));
3) delete (s,1,5);
Var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
<span>end.</span>
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
end.
Ответ: 38 учеников. Примерно 50/50 мальчиков и девочек