Помогите, пожалуйста, с программой в Паскаль

[Агнесса]

Помогите, пожалуйста, с программой в Паскаль

Составить программу в Паскале с использованием файлов,процедуры,функции,записи,множества.
[FONT=&quot]Даны три множества : Х1,состоящее из целых чисел от1 до 20; Х2,состоящее из целых чисел от 10 до 36; и Х3,которое включает все нечетные целые числа от 11 до 77.Сформировать множество [/FONT][FONT=&quot]Y[/FONT][FONT=&quot]=([/FONT][FONT=&quot]X[/FONT][FONT=&quot]1[/FONT][FONT=&quot]UX[/FONT][FONT=&quot]2) [/FONT][FONT=&quot]⋂[/FONT][FONT=&quot]([/FONT][FONT=&quot]X[/FONT][FONT=&quot]1[/FONT][FONT=&quot]UX[/FONT][FONT=&quot]3)\([/FONT][FONT=&quot]X[/FONT][FONT=&quot]2[/FONT][FONT=&quot]UX[/FONT][FONT=&quot]3),из которого выделить подмножество [/FONT][FONT=&quot]Y[/FONT][FONT=&quot]1 [/FONT][FONT=&quot]чисел,делящихся на 4 без остатка.Вывести множества [/FONT][FONT=&quot]Y[/FONT][FONT=&quot],[/FONT][FONT=&quot]Y[/FONT][FONT=&quot]1 в текстовый файл.Исходные множества задать в программе .[/FONT]

 

[Vladimir_S]

Составить программу в Паскале с использованием файлов,процедуры,функции,записи,множества.
[FONT=&quot]Даны три множества : Х1,состоящее из целых чисел от1 до 20; Х2,состоящее из целых чисел от 10 до 36; и Х3,которое включает все нечетные целые числа от 11 до 77.Сформировать множество [/FONT][FONT=&quot]Y[/FONT][FONT=&quot]=([/FONT][FONT=&quot]X[/FONT][FONT=&quot]1[/FONT][FONT=&quot]UX[/FONT][FONT=&quot]2) [/FONT][FONT=&quot]⋂[/FONT][FONT=&quot]([/FONT][FONT=&quot]X[/FONT][FONT=&quot]1[/FONT][FONT=&quot]UX[/FONT][FONT=&quot]3)\([/FONT][FONT=&quot]X[/FONT][FONT=&quot]2[/FONT][FONT=&quot]UX[/FONT][FONT=&quot]3),из которого выделить подмножество [/FONT][FONT=&quot]Y[/FONT][FONT=&quot]1 [/FONT][FONT=&quot]чисел,делящихся на 4 без остатка.Вывести множества [/FONT][FONT=&quot]Y[/FONT][FONT=&quot],[/FONT][FONT=&quot]Y[/FONT][FONT=&quot]1 в текстовый файл.Исходные множества задать в программе .[/FONT]

Извините, но решительно не вижу, куда тут можно воткнуть процедуры, функции и записи, но в остальном - вроде так:

Var
 X1,X2,X3,Y,Y1:Set of Byte;
 i:Byte;
 f:Text;

Begin
 X1:=[];
 X2:=[];
 X3:=[];
 for i:=1 to 20 do X1:=X1+[i];
 for i:=10 to 36 do X2:=X2+[i];
 for i:=5 to 38 do X3:=X3+[2*i+1];
 Y:=(X1+X2)*(X1+X3)-(X2+X3);
 Y1:=[];
 for i:=1 to 77 do
  if (i in Y) and ((i mod 4)=0) then Y1:=Y1+[i];
 Assign(f,'Sets.txt');
 Rewrite(f);
 Write(f, 'Set Y:  ');
 for i:=1 to 77 do
  if (i in Y) then write(f,i:4);
 Writeln(f);
 Write(f, 'Set Y1: ');
 for i:=1 to 77 do
  if (i in Y1) then write(f,i:4);
 Close(f);
End.

 

[Агнесса]

спасибо за помощь