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

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.