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

a)

Program Pr1;

uses crt;

var a, b, c:integer;

Begin

clrscr;

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;

Begin

clrscr;

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.