Ещё очень необходимо задание 3 и 4. Please.

3

a)

x, y,z : integer;

begin

     readln(x, y, z);

     if  (x gt; 0) and  (y gt; 0) and  (z gt; 0) then: write('Yes')

end.

b)

x, y,z : integer;

begin

     readln(x, y, z);

     if  (x gt; 0) or  (y gt; 0) or  (z gt; 0) then: write('Yes')

end.

4

K : real;

begin

     read(K);

     K := K + K / 100 * 2;

     write(K)

end.