Множества.

[MurkyMargosha]

На паскале:
Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y = (X1*X2)*(X2+X3), из которого выделить подмножество чисел, кратных 4.

(При этом: Обработка множеств должна быть реализована в подпрограммах. Исходные множества задать в главной программе. Ввод элементов множеств осуществлять до нажатия клавиши ‘z’. Результат обработки и мощность полученных множеств вывести в главной программе)

program pr12;
uses crt;
type Y = set of 1..100;
Procedure Proc1(X1, X2, X3: Y; var c: Y);
const dig: Y=['1'..'100'];
begin
c:=(X1*X2)*(X2+X3)
end;
var X1, X2, X3: Y;
    i: byte;
    c: char;
begin clrscr;
X1:= []; X2:= []; X3:= [];
write('Wwedide 1-oe mnojestwo ->');
while true do begin
    c:= readkey ; if c = 'z' then break else
        begin X1:= X1 + [c];
              write(c:3)
        end
end;
writeln;
write('Wwedite 2-oe mnojestwo ->');
while true do begin
    c:= readkey; if c = 'z' then break else
        begin X2:= X2 + [c];
              write(c:3)
        end
end;
writeln;
write('Wwedite 3-e mnojestwo ->');
while true do begin
    c:= readkey; if c = 'z' then break else
        begin X3:= X3 + [c];
              write(c:3)
        end
end;
writeln;
begin
Y4 := [];
  for i := 1 to 100 do
    if (i in R) and (i mod 4 = 0) then write(i:3); Y4 := Y4 + [ i ];
end;
writeln;
Proc1(X1, X2, X3, Y);
write('Resultat:');
writeln;
write('Kratno 4:');
writeln;
readkey
end.

как то так... доведите до ума программу) а то я ничего в паскале не понимаю^^