Составить программу, печатающую...

Составить программу, печатающую значение true, если указанное высказывание истинно, и false, в противномслучае:


1. Хотя бы одна цифра данного трехзначного числа N равна S.

2. Числа N и R являются нечетными.

 

Program akifieva70;
var n,s,r:integer;
begin
write('n=');read(n);
write('s=');read(s);
if (n div 100 = s) or (n mod 10 = s) or (n div 10 mod 10 = s)
then write('TRUE')else write('FALSE');
writeln;
write('n=');read(n);
write('r=');read(r);
if (r mod 2 <>0) and (n mod 2<>0)  
then write('TRUE')else write('FALSE');
end.