47. дано целое четырехзначное положительное число n. составьте программу,которая определяет,какая из его цифр больше-вторая или последняя   48 дано целое четырехзначное положительное число 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.