FreePascal.ru

Спасибо за урок. Всем откликнувшимся респект

например это в отладке работает, а при запуске выполнения дает только 1 результат из множества.
var sn1,sn2:set of 1..50; x,y:byte;

begin
x:=0;
sn1:=[1..50]; sn2:=sn1;
for x:=1 to 20 do begin
randomize;
y:=random(50);
if [y]<=sn2 then write(y:4);
sn2:=sn1-[y];
end;
readln
end.

Ребят, привет. Я совсем новый в этом деле. Учу Паскаль. Вот уже несколько программ показало следующее: при отладке консольной программы в пошаговом все четко работает, а при обычном запуске не корректно выполняется. Например повторы одного результата заданное кол-во раз. или вместо нескольких ...