If b then
if c then x:=True else x:=a
else x:=a;
1 <
2 ? 1,3
3 x
4 >
5 ? 4,6
6 x
7 >
8 ? 9,1
9 !
186=10111010
341=101010101
992=1111100000
Const
n = 10;
var
a: array[1..n] of string;
i: integer;
begin
for i := 1 to n do
begin
a[i] := chr(ord('A') + i - 1);
writeln(a[i]);
end;
end.