program liczby_pierwsze_z_przedz_do_m;
var m,k,i: integer;
    dzieli:boolean;
 
begin
    write('Podaj górną granice przedziału: ');
    read(m); writeln(m);
    writeln('Oto liczby pierwsze z przedziału od 2 do ',m);
 
    for k := 2 to m do
    	begin
    		dzieli := false;
    		for i := 2 to k - 1 do
    			if k mod i = 0 then
    				begin
    					dzieli := true;
    					break;
    				end;
    		if not dzieli then write(k, ' ');
    	end;
end.

cHJvZ3JhbSBsaWN6YnlfcGllcndzemVfel9wcnplZHpfZG9fbTsKdmFyIG0sayxpOiBpbnRlZ2VyOwogICAgZHppZWxpOmJvb2xlYW47CiAgICAKYmVnaW4KICAgIHdyaXRlKCdQb2RhaiBnw7NybsSFIGdyYW5pY2UgcHJ6ZWR6aWHFgnU6ICcpOwogICAgcmVhZChtKTsgd3JpdGVsbihtKTsKICAgIHdyaXRlbG4oJ090byBsaWN6YnkgcGllcndzemUgeiBwcnplZHppYcWCdSBvZCAyIGRvICcsbSk7CiAgICAKICAgIGZvciBrIDo9IDIgdG8gbSBkbwogICAgCWJlZ2luCiAgICAJCWR6aWVsaSA6PSBmYWxzZTsKICAgIAkJZm9yIGkgOj0gMiB0byBrIC0gMSBkbwogICAgCQkJaWYgayBtb2QgaSA9IDAgdGhlbgogICAgCQkJCWJlZ2luCiAgICAJCQkJCWR6aWVsaSA6PSB0cnVlOwogICAgCQkJCQlicmVhazsKICAgIAkJCQllbmQ7CiAgICAJCWlmIG5vdCBkemllbGkgdGhlbiB3cml0ZShrLCAnICcpOwogICAgCWVuZDsKZW5kLg==

MTA=

10