Взаданном одномерном массива из 10 элементов, переставить элементы так, чтобы сначала стояли элементы - круглые числа, а затем все остальные.

Готово : ) 

Program lol (input, output); var i, n, d, sd, s4d, kd, kn4d, k4d, kbd: integer; begin writeln ('введите само число и число d'); read (n, d); writeln ('делители: '); i: =1; sd: =0; s4d: =0; kd: =0; kn4d: =0; k4d: =0; kbd: =0; while i < =n do begin if n mod i = 0 then begin kd: =kd+1; writeln (i); sd: =sd+i; if i > d then kbd: =kbd+1; if i mod 2 = 0 then begin s4d: =s4d+i; k4d: =k4d+1; end else kn4d: =kn4d+1; end; i: =i+1; end; writeln (' '); writeln ('сумма делителей ', sd); writeln ('сумма четных делителей ', s4d); writeln ('количество делителей ', kd); writeln ('количество нечетных делителей ', kn4d); writeln ('количество четных делителей ', k4d); writeln ('количество делителей болеше d ', kbd); end.

Program zagadki2; var a, b, c, d: string; label r; begin writeln(', я программа, загаывающая загадки'); writeln('будешь отгадывать ? '); readln(a); if a = 'да' then writeln('зимой и летом одним цветом.') else begin writeln('пока'); goto r; end; readln(b); if b = 'ёлка' then writeln('правильно! ') else begin writeln('нет,попробуй ещё раз'); readln(b); if b = 'ёлка' then writeln('! ') end; writeln('сидит красавица в темнице, а коса на улице.'); readln(c); if c = 'морковь' then writeln('правильно! ') else begin writeln('попробуй ещё раз'); readln(c); if c = 'морковь' then writeln('правильно') end; writeln('не лает, не кусает, да в дом не пускает.'); readln(d); if d = 'замок' then writeln('правильно') else begin writeln('попробуй ещё раз'); readln(d); if d = 'замок' then writeln('правильно'); end; r: end.