Таблица истинности. Написать логическое выражение и схему.

Program pr;

uses crt;

Var a,k,k1:integer;

Begin

Writeln("Bведите а");

readin(a);

k1:=1;

k:=0

; While (a<>0) and (k1<1000) do

Вegin

if (a<0) and (a mod 2-0) and (abs (a)<-30000)

then k:%3Dk+1;

readln(a); end;

Writeln(k3},k);

readln;

end. 2) Program pr;

uses crt;

Var a,k,k1:integer;

Begin Writeln('Bведите а);

readln(a);

k1:=1

k:=0

While (a<>0) and (k1<1000) do

Begin if (a>0) and (a mod 24>0) and (abs(a)<-30000)

then k:1k+1;

k1:=k1+1

readln(a):

end

Writeln('k='k');

readin;

end