47. Дано целое четырехзначное положительное число n. Составьте программу, которая…

var n: integer; begin write ('n='); readln (n); if (n mod 10) > (n div 100) mod 10) then writeln ('Последняя больше второй') else if (n mod 10) < (n div 100) mod 10) then writeln ('Вторая больше последней') else writeln ('Они равны'); readln; end. // Вторая программаvar n, Pr: integer; begin write ('n='); readln (n); Pr: =1; while n > 0 do begin Pr: =Pr*(n mod 10); n: =n div 10; end; writeln ('Pr=', Pr); if Pr mod 5=0 then writeln ('Кратно') else writeln ('Некратно'); readln; end.