Множини

Var

S: char;

Sets: set of ‘+’ [‘;

I: ‘+’..’[‘;

begin

Sets: = [ ];

Read (S)

While not Eof do begin

While not Eoln do

begin

Sets: = Sets + [S];

Read (S)

end

Readln

End

for I: = ‘+’ to ‘[‘ do

if I in Sets

then Write (I) else; writeln end.

Приклад №2 Написати програму, яка друкує всі прості числа з відрізку 2..N діючи по методу “решета Ератосорена”

“Решето Ератосорена”

Program Rach;

Coust

N = 15

Var

S: set of 2..N