Množina bez násobků – Pascal – Fórum – Programujte.com

Sory za ten nazev vlakna muj problem se trochu zmenil:)

Problem je v tom ze mi to vypise urcite cisla a ja bych potreboval najak nacist hned to prvni cislo co se tam obevi tj. v tomto pripade 7 (ale to cisle se muze menit takze nemuzu napsat neco ve stylu cislo:=7)
Diky za jakykoliv rady

Program mnozin;

uses crt;

const maxN = 1000;

delitel = 2;

delitel3 = 3;



var cisla: integer;

volba:char;



    sito : array [2..maxN] of boolean;

    i,j : integer;





begin

  writeln('zadejte horni mez cisla: ');

  readln(cisla);

  Writeln('kecy');

 Writeln(' ');

 for i := 2 to cisla do sito[i] := true;

      for i := 2 to cisla do

     begin

     if  i mod 2 = 0  then  sito[i] := false else

     if  i mod 3 = 0  then  sito[i] := false else

     if  i mod 5 = 0  then  sito[i] := false else



      write(i,' ');

      delay(2);

{tady to napise mnozinu od 7mi po maxN ale ja bych potreboval aby tu mel neco jako

readln a nacetlo mi to hned to prvni cislo tj.v tomto pripade 7 do promene }

     end;

     readln;



   End.