Какое число будет выведено в консоль при выполнении указанного участка кода? if ('a'< 'b') and ('true'> 'false') thenwrite (3+2*2) elsewrite (42/(3+4))

Var a: array[1..100,1..100] of integer;                                     n,m,i,j,min,kmin: integer; begin readln(n,m); min: =10000; kmin: =0;       for i: =1 to n do begin               writeln();                   for j: =1 to m do begin                            a[i,j]: =random(50);                   write(a[i,j],'   ');                           if min = a[i,j] then                               kmin: =kmin+1                            else if min > a[i,j] then begin                                           kmin: =1; min: =a[i,j];                               end;                     end;       end; writeln(); write(min,' ',kmin); readln(); end.

//pascal abc.net v3.1 сборка 1172 var   k: integer;   se: set of char;   s: string;   num: set of '0'..'9'; begin readln(s);   num: =['0'..'9'];   while s< > '' do   begin     if (not(s[length(s)] in se)) and (s[length(s)] in num) then     begin       inc(k);       se: =se+[s[length(s)]];     end;     delete(s,length(s),1);   end;   writeln(k); end. пример ввода: 234мне нужно делать , что я тут забыл? 121 пример вывода: 4