var x:integer;
BEGIN
readln(x);
if (x>0) then
writeln('Число натуральное.') else
writeln('Число не является натуральным.');
end.
var x:integer;
BEGIN
readln(x);
if (x>0) then
writeln('Число натуральное.') else
writeln('Число не является натуральным.');
end.