Напишите условие выбора чисел меньше 100 и кратных 5

If (a< 100) and (a mod 5  = 0)

Const       max_length = 10; type       arr = array [0..max_length, 0..max_length] of byte; var       a: arr;       i, j, n, m, k, x, y: byte;       c: char;       f: text; //procedure printmatrix(a: arr); //begin //      for var i : = 0 to max_length do //      begin //              writeln; //              for var j : = 0 to max_length do //                      write(a[i, j], ' '); //      end; //      writeln; //end; procedure labirint(i, j: byte); begin       if (i < = n) and (i > = 0) and (j < = m) and (j > = 0) and (a[i, j] = 0) then begin               a[i, j] : = 1;               k : = k + 1;               labirint(i, j - 1);               labirint(i, j + 1);               labirint(i - 1, j);               labirint(i + 1, j);       end; end; begin       assign(f, 'input.txt');       reset(f);             readln(f, n, m);       for i : = 0 to n do       begin               for j : = 0 to m do               begin                       read(f, c);                       case c of                               'x': a[i, j] : = 2;                               '.': a[i, j] : = 0;                               '+':                                       begin                                               x : = i;                                               y : = j;                                               a[i, j] : = 0;                                       end;                       end;               end;               readln(f);       end;       close(f);       //      printmatrix(a);             labirint(x, y);       writeln(k); //      printmatrix(a); end.

Program aaa; var   a,b,c,d,s: real; begin   writeln('введите a, b, c, d');   readln(a,b,c,d);   if (a*b+c*d)> =(a*c+b*d)     then        if (a*b+c*d)> =(a*d+b*c)         then s: =a*b+c*d         else s: =a*d+b*c      else        if (a*c+b*d)> =(a*d+b*c)         then s: =a*c+b*d         else s: =a*d+b*c;   writeln(s)  end.