Определите значение переменной s после выполнения фрагмента алгоритма

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы

Музыкант дружил с андреевым, сейчас дружит с ивановым [3], значит, он не андреев и не иванов. кроме того, андреев никогда не был знаком с петровым [4], но был дружен с музыкантом, значит, петров - тоже не музыкант. поэтому музыкант сидоров. иванов и андреев - не солисты хора, так как были на его концерте [1], отсюда единственная возможность -  солист хора - петров. петров незнаком с андреевым [4], но позировал художнику [2], поэтому знаком с ним. значит, андреев - не художник,  андреев - танцор. для иванова остался последний вариант,  иванов - художник.