Текст задания

Из множества 0..50 выделить множество чисел, делящихся на 2 или на 3 без остатка.

Исходный код программы

Program MN_10;
uses crt;
var
t: set of 0..50;
i:integer;
begin
clrscr;
for i:=0 to 50 do {цикл для перебора значений от 0 до 50}
 if (i mod 2=0) or (i mod 3=0) then include(t,i); {если число делится на 2 или на 3 с нулевым остатком, то включчаем его в множество t}

for i:=0 to 50 do
 if i in t then write (i,', ');{выводи множество t на экран}

readln;
end.

Результат работы программы