Множество в Delphi и в Pascal

[Sergei12223]

Помогите пожалуйста сделать программу вот условие:
Ввод элементов трех множеств A, B, C через кл-ру.По запросу пользователя вычислить и напечатать одно из производных множеств объединение, пересечение, разность для любой пары множеств.

[Stilet]

var a,b,c,r:set of [1..100]; i,v:integer;
begin
 a:=[];b:=[];c:=[];r:=[];
 Write('Введи 20 элементов А ');
  for i:=1 to 20 do begin readln(v); include(a,v); end;
 Write('Введи 20 элементов B ');
  for i:=1 to 20 do begin readln(v); include(b,v); end;
 Write('Введи 20 элементов C ');
  for i:=1 to 20 do begin readln(v); include(c,v); end;

 Writeln('1 - пересечение');Writeln('2 - разность');Writeln('3 - объединение');
 readln(i);

 case i of
  1:r=a*b; 
  2:r=b-c; 
  3:r=c+a; 
 end; 
 for i:=1 to 100 do if i in r then write(i:5);
 readln;
end.

[Sergei12223]

Не работает

[Аватар]

var a,b,c,r: set of 1..100; i,v:integer;

[Sergei12223]

Пробовал вот только теперь пишет

[Вадим Мошев]

Сообщение от Sergei12223

Пробовал вот только теперь пишет

на какой строке?

[Sergei12223]

Сообщение от Вадим Мошев

на какой строке?

вот r=a*b;

[Вадим Мошев]

Замените = на := в этих строках

[Sergei12223]

Сообщение от Вадим Мошев

Замените = на := в этих строках

Все теперь норм

[Вадим Мошев]

Удачи .