1) 1
2) 0
3) 1
4)1
5)0
6)0
7)0
8)0
9)0
10)0
<span>var
a,b,s,i:integer;
begin
assign(input,'путь к документы');
reset(input);
assign(output,'output.txt');
rewrite(output)
readln('vvedite menshee chislo');
readln(a);
readln('vvedite bolshee chislo');
readln(b);
for i:=a to b do
s:=s+i*i;
writeln(s);
readln;
end<span>.</span></span>
Множество первых букв русского алфавита.
Содержится всего 1 элемент: буква "А"
Тут не она ошибка, а множество. Должно быть так:
var
a: integer;
begin
writeln('Введите любое число');
read(a);
if (a > 0) then
begin
a := a + 1;
writeln(a)
end
else
begin
a := a - 2;
writeln(a)
end
end.