Boolean3 . дано целое число a . проверить истинность высказывания: «чис- ло a является четным».

Var a: integer; b: boolean; begin readln(a); if a mod 2 = 0 then b: =true; writeln(b); end.

Program asd; var  f,g: text;     t,fs,gs: string;     i,k,n: integer;   isfilesequal: boolean; begin  isfilesequal: =true;   assign(f,'fi1.txt');     assign(g,'fi2.txt');     reset(f);     reset(g);   n: =0;   while not eof(f) do    begin      if not isfilesequal then          break;       readln(f,fs);         readln(g,gs);       if fs< > gs then        begin          isfilesequal: =false;             inc(n);             if length(fs)< length(gs) then            t: =fs            else              t: =gs;             for i: =1 to length(t) do            if fs[i]< > gs[i] then                begin                  k: =i;                   break;                 end;         end;     end;   close(f);     close(g);     if isfilesequal then    writeln('.')  else      writeln('строка = ',n,' позиция = ',k);     readln; end.

// pascal abc.net var       n, digit : integer;       mult : integer : = 1;       sum, count : integer;       begin       readln(n);       while n < > 0 do begin               digit : = n mod 10;               inc(count);               if count mod 2 = 1 then                       sum += digit               else                       mult *= digit;               n : = n div 10;       end;       writeln('summa is ', sum);       writeln('multiplication is ', mult); end.