Примеры систематизации информации

o__o

var i, s : integer; begin

for i : = 1000 to 9999 do if (i * 4 > = 1000) and (i * 4 < = 9999) then begin s : = i * 4; if ((i mod 100) div 10 = ( s div 1000)) then if ((i mod 10) = ( s mod 1000) div 100) then if ( i div 1000 = (s mod 100) div 10) then if ( ((i mod 1000 div 100) < > i div 1000) and ((i mod 1000 div 100) < > (i mod 100) div 10) and ((i mod 1000 div 100) < > i mod 10)) then if ( (s mod 10 < > s div 1000) and (s mod 10 < > (s mod 1000) div 100) and (s mod 10 < > (s mod 100) div 10)) then writeln(i, ' = ', i * 4); end;

readln; end.

правилный ответ на 100 % !           (устройства > внутр > внешняя память

                                                                                                                            (устройства вывода)< --                                                <                                                              

                                                                                                                                                                                                                    процессор                                                                                 

удачи !