Информатика, ЕГЭ, 23 задание. ответ дан, но нужно решение

они дорожного языка

Знаки – неотъемлемая часть правил дорожного движения, и их обязательно нужно соблюдать. Делать это нужно ради себя, своих близких и просто окружающих людей. Ведь следуя знакам дорожного движения, вы можете обезопаситься от возникновения дорожно-транспортного происшествия и других неприятных моментов, в последнее время, часто возникающих на дорогах. Знаки дорожного движения должны знать не только водителя разных категорий, но и пешеходы, которые также могут нарушить правила дорожного движения и спровоцировать аварию на дороге. 

1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.