Дано трёхзначное число. найти в нём максимальную цифру. 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.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1