Ещё очень нужно задание 3 и 4. Please.

№3

a)

x, y,z : integer;

begin

     readln(x, y, z);

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

end.

b)

x, y,z : integer;

begin

     readln(x, y, z);

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

end.

#4

K : real;

begin

     read(K);

     K := K + K / 100 * 2;

     write(K)

end.