Из ЕГЭ! ЛЕГКО. Решите пожалуйста из файла

10.                                                                      

program raf105;

var

 n,counter: real;

 s: string;

 nn:array[1..6] of integer;

 x: boolean;

 o,i:integer;

begin

n:= 100000-1;

while n lt; 999999 do

begin

 n+= 1;

 x:= true;

 str(n,s);

 for i:=1 to 6 do

   val(s[i],nn[i],o);

 if (nn[1]lt;nn[2]) and (nn[2]lt;nn[3]) and (nn[3]lt;nn[4]) and (nn[4]lt;nn[5]) and (nn[5]lt;nn[6])

   then x:= false;

 if x

   then counter+= 1;

end;

writeln('Количество счастливых шестизначных чисел: ',counter);

end.

11.                                                                      

program raf105;

var

 n,counter: real;

 s: string;

 nn:array[1..6] of integer;

 x: boolean;

 o,i:integer;

begin

n:= 100000-1;

while n lt; 999999 do

begin

 n+= 1;

 x:= true;

 str(n,s);

 for i:=1 to 6 do

   val(s[i],nn[i],o);

 if (nn[3]+nn[4])lt;(nn[1]+nn[2]+nn[5]+nn[6])

   then x:= false;

 if x

   then counter+= 1;

end;

writeln('Количество счастливых шестизначных чисел: ',counter);

end.

12.                                                                      

program raf105;

var

 n,counter: real;

 s: string;

 nn:array[1..6] of integer;

 x: boolean;

 o,i:integer;

begin

n:= 100000-1;

while n lt; 999999 do

begin

 n+= 1;

 x:= true;

 str(n,s);

 for i:=1 to 6 do

   val(s[i],nn[i],o);

 if (nn[1]+nn[6])gt;(nn[2]+nn[3]+nn[4]+nn[5])

   then x:= false;

 if x

   then counter+= 1;

end;

writeln('Количество счастливых шестизначных чисел: ',counter);

end.

Язык PascalABC