Fedya_for

{b) Дано натуральное число n.
Получить все натуральные числа,
меньшие n и взаимно простые с ним.}
var n,i,c,x,y,z,nod:integer;
begin
    write('n=');
    readln(n);
    c:=0;
    for i:=2 to n-1 do
    begin
        y:=n;x:=i;
        if(x<y)then
        begin
            x:=x+y;
            y:=x-y;
            x:=x-y;
        end;
        while(x mod y <>0) do
        begin
            z:=x;
            x:=y;
            y:=z mod y;
        end;
        if(y=1)then
        begin
            write(i:5);
            c:=c+1;
        end;
    end;
    if c=0 then write('net vzaimoprostich chisel');
    readln;
end.