решить задачу по информатике: Дано трёхзначное число. Выяснить первая или вторая цифра в его
записи наименьшая (выдать сообщение об этом). Если наименьшая первая
цифра, то поменять местами первую и вторую цифры. Далее, проверив всё
число на кратность трём вывести на печать вместе с результатом проверки
Program n_1;
var a,d,b,c,f,h,Y: integer;
Begin
Read(a);
b := a div 100;
c:= a mod 100;
d := c div 10;
f:= a mod 10;
if (b > d) then writeln (“первое цифра больше’’), else begin
h:=d*100+b*10+ f;
writeln (“вторая цифра больше’’);
end;
Y := d+b+f;
if (Y mod 3) = 0 then
writeln (Y);
writeln (“a делится на 3’’);
end.