Написать программу,которая вычисляет дату следующего дня.( pascal) ниже рекомендуемый вид работы программы.(данные введенные пользователем,выделены жирным шрифтом) введите цифрами сегодняшнюю дату(число,месяц,год) 31 12 1998 последний день месяца! с наступающим новым годом! завтра 1.1.2000

Паскаль авс. программа вывводит дату следующего дня. чтоб не утяжелять программу, не стал писать проверку правильности введения даты - то есть пользователь должен вводить только правильные цифры : ) program upmixer; var   day, month, year: integer; begin writeln('введите дату: '); write('день: '); read (day); write('месяц: '); read (month); write('год: '); read (year); day: =day+1; {если было введено 29 февраля високосного года} if mod 4)=0) and ((year mod 100)< > 0) and (month=2) and (day=30)) then   begin       day: =1;       month: =month+1;   end; {если было введено 28 февраля невисокосного года} if mod 4)< > 0) and (month=2) and (day=29)) then   begin       day: =1;       month: =month+1;   end; {другие дни} if ((day=31) and ((month=4) or(month=6) or (month=9) or (month= then   begin       day: =1;       month: =month+1;   end; if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month= then begin       day: =1;       month: =month+1; end; {31 декабря} if ((day=32) and (month=12)) then begin       day: =1;       month: =1;       year: =year+1; end; writeln('завтра ', day,' ',month,' ',year); end.

Const   m = 10; // количество строк   n = 10; // количество столбцов var   arr: array [1..m, 1..n] of integer;   i,j,z,min,temp : integer; begin   for j : = 1 to m do     for i : = 1 to n do       arr[j, i] : = random(99);         writeln('исходный массив: ');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end;   for j : = 1 to m do   begin     for i : = 1 to n - 1 do     begin       min : = i;           for z : = i + 1 to n do           if arr[j, z] < arr[j, min]  then             min : = z;             temp : = arr[j, min];       arr[j, min] : = arr[j, i];       arr[j, i] : = temp;     end;   end;         writeln;   writeln('отсортированный массив');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end; end.