Сформировать последовательность заглавных букв

[Anka1101]

Мальчики извиняюсь,не могла сюда зайти ,не видела этой переписки.....я уже запуталась?как все таки будет правильно?

[Anka1101]

var 
n,c:integer; 
i:longint;

function test(t2:longint):boolean; {повека числа на условие задачи} 
var 
t,i:longint; 
c:boolean; 
begin 
c:=false;test:=false; 
t:=t2; 
while t mod 2 = 0 do begin t:=t div 2; c:=true; end; 
while t mod 3 = 0 do begin t:=t div 3; c:=true; end; 
while t mod 5 = 0 do begin t:=t div 5; c:=true; end;

if t=1 then begin 
test:=true; 
exit; {число делится вообще только на 2,3,5} 
end; 
if c then exit; {если чсило pазделилось на 2,3 или 5 и что-то ещё осталось, 
значит оно делится на какое-то ещё пpостое число кpоме них} 
{пpовеpка, делится ли число вооще на что-нибудь кpоме 2,3,5} 
for i:=7 to round(sqrt(t2)+1) do 
if t2 mod i = 0 then exit; 
test:=true; 
end;

begin 
writeln('введите n'); 
readln(n); 
i:=1; 
writeln(test(121)); 
while c<n do 
begin 
if test(i) then 
begin 
writeln(i); 
c:=c+1; 
end; 
i:=i+1; 
end; 
end.

Вот так можно,но мне бы попроще!без функции,может кто помочь исправить?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

На "мальчика" здесь тянет только один человек! Остальных в пору "дяденьками" называть

var
    n, i, sq, k,  count, i : Integer;

begin
    ReadLn (n);

    count := 0; i := 1;
    while count < n do begin
        sq := Round (Sqrt(n));
	k := 2;
	while (k <= sq) and (n mod k <> 0) do
	        Inc (k);
        if k <= sq then begin
                WriteLn (i*2*3*5);
                Inc (count)
        end;
        Inc (i)
    end
end.

Почему-то отображается кособоко

[Anka1101]

Ну я же не смотрю сколько вам там лет всем

[Anka1101]

Сообщение от Poma][a

На "мальчика" здесь тянет только один человек! Остальных в пору "дяденьками" называть

var
    n, i, sq, k,  count, i : Integer;

begin
    ReadLn (n);

    count := 0; i := 1;
    while count < n do begin
        sq := Round (Sqrt(n));
	k := 2;
	while (k <= sq) and (n mod k <> 0) do
	        Inc (k);
        if k <= sq then begin
                WriteLn (i*2*3*5);
                Inc (count)
        end;
        Inc (i)
    end
end.

Почему-то отображается кособоко

Ой а объясните пожалуйста что значат все эти переменные?