Почему программа не выводит множество А на экран?
И почему когда вводишь число, чтобы проверить, состоит ли оно в множестве, программа пишет, что не состоит - какое бы число не ввёл? Где я напортачил?
program mnozhexp;
uses crt;
var N: byte; // число от пользователя на проверку
A: set of 1..10;
B: set of 5..15;
C: set of 1..25;
//procedure NumSets(var num: byte); // процедура проверки вхождения числа в множество
procedure NumSets; // процедура проверки вхождения числа в множество
var CharInSets: char;
num: byte;
begin
Write('Введите число: ');
Readln(num);
if num in A then
Writeln('Число', num, ' входит в множество А.')
else
Writeln('Указанное число не входит в множество A.');
if num in B then
Writeln('Число', num, ' входит в множество B.')
else
Writeln('Указанное число не входит в множество B.');
if num in C then
Writeln('Число', num, ' входит в множество C.')
else
Writeln('Указанное число не входит в множество C.');
end;
procedure WriteSets; // процедура вывода множеств
var i,j: byte;
begin
Writeln('Множество A: ');
for i:=1 to 10 do
if i in A then
Write(i, '');
Writeln;
end;
begin
clrscr;
NumSets;
WriteSets;
end.