1.) Дано трехзначное число. Определить, какая из его цифр больше:…

a) Program Pr1; uses crt; var a,b,c: integer; Beginclrscr; readln (a); c: =a mod 10; a: =a div 10; b: =a mod 10; a: =a div 10; if a>b then writeln ('Первая цифра >') else writeln ('Вторая цифра больше'); end.b) Program Pr1; uses crt; var a,b,c: integer; Beginclrscr; readln (a); c: =a mod 10; a: =a div 10; b: =a mod 10; a: =a div 10; if b>c then writeln ('Вторая цифра >') else writeln ('Третья цифра больше'); end.