Дано трёхзначное число. найти в нём максимальную цифру. 20 паскаль

Var a,k,b,c: longint; begin read (a); k: =a div 100; b: =a div 10 mod 10; c: =a mod 10; if ((k> b) and (k> c)) then writeln (k) else if ((b> k) and (b> c)) then writeln (b) else if ((c> b) and (c> k)) then writeln (c); end.

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108