№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.