uses crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('vvedite A');
readln(a);
writeln('vvedite B');
readln(
;writeln('vvedite C');
readln©;
writeln('vvedite D');
readln(d);
if not odd(a) or not odd(
or not odd© or not odd(d) then write('pravda')else writeln('nepravda');
readln;
end.