Дано 3-значное число.посчитать, сколько в этом числе четных цифр.проверить, принадлежит ли промежутку от 1 до 3 последняя цифрапаскаль)

Var n, c: integer;     b: boolean; begin   write('введите число: ');   readln(n);   writeln('цифра справа в 1..3: ', (n mod 10) in [1..3]);   while (n> 0) do begin     c : = c + 1 - (n mod 2) ;     b : = (n mod 10) in [1..3];     n : = n div 10;   end;   writeln('цифра слева в 1..3: ', b);   writeln('четных цифр ', c); end.

1) программа на нахождение кратности uses crt; var a,i: byte;   s: real;   begin  clrscr;   for i: =1 to 4 do  begin writeln('vvod');   readln(a);   if a mod 5=0 then  writeln('число ',a,' кратно 5 ')  else  writeln('число ',a,' не кратно 5')  end;   end.  2) программа на нахождение площади uses crt; var a,b,s: real; begin clrscr; write('сторона 1: '); readln(a); write('сторона 2: '); readln(b); s: =a*b; writeln('площадь=',s: 10: 3); end.

Ввашей программе номер  максимального числа подсчитывается  от младших разрядов числа к старшим, а вывести нужно номер от старших разрядов к младшим.   поэтому, нужно добавить в программу строку     imax  =  i  -  imax  +  1;     перед строкой   printf ("%d", imax); и ещё, так как нужно вывести первую максимальную цифру числа (если их несколько), то нужно изменить строку     if (a> max)   на   строку     if (a> =max)