var N:integer;
begin
readln(N);
if (N mod 10 = 4) or (N div 10 = 4) then
writeln(false) else
writeln(true);
end.
Объяснение:
var N:integer;
begin
readln(N);
if (N mod 10 = 4) or (N div 10 = 4) then
writeln(false) else
writeln(true);
end.
Объяснение: