program NextPrevDate;
uses crt;
var
dd, mm, yyyy: integer;
begin
writeln('Введите день (1-31): ');
readln(dd);
writeln('Введите месяц (1-12): ');
readln(mm);
writeln('Введите год: ');
readln(yyyy);

if dd = 31 then
begin
writeln('Следующий день: 1');
end
else
begin
writeln('Следующий день: ', dd + 1);
end;

if dd = 1 then
begin
writeln('Предыдущий день: 31');
end
else
begin
writeln('Предыдущий день: ', dd - 1);
end;

readkey;
end.