БЛОК-СХЕМА!!! СРОЧНО!!!

СПАСИБО ОГРОМНОЕ ЗА ПОМОЩЬ!!!!
А ВОТ ЕСЛИ ЗАДАЧА ВЫШЛЯДИТ ВОТ ТАК, то как будет выглядеть БЛОК-СХЕМА?
НАПИШИТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ!!!
ОЧЕНЬ СРОЧНО!!!!


Задача.
Даны три числа, два из которых равны, а третье отлично от них.
Найти порядковй гомер числа, отличного от двух других.

var X:array[1..3] of integer;
k,i:integer;
begin
write('pervoe chislo='); readln(x[1]);
write('vtoroe chislo='); readln(x[2]);
write('tretye chislo='); readln(x[3]);

for i:=1 to 3 do

if x[1]=x[2] then k:=3;
if x[1]=x[3] then k:=2;
if x[2]=x[3] then k:=1;

writeln('Poryadkovyi nomer chisla, otlichnogo ot drugih=',k);
end.


НАПИШИТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ!!!
ОЧЕНЬ СРОЧНО!!!!
Буду признателен!!!