По по переменным у(номер года) m(номер месяца), в(номер дня), определить правильная эта дата или нет . если правильная то напечатать дату следующего дня. в паскале с учетом высокосного года

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (y,m,b):=ReadInteger3('Введите год, месяц и день:');
  try
    var d:=(new System.DateTime(y,m,b)).Date;
    Writeln(d.AddDays(1).ToString[:11]);
  except
    Writeln('Вы ввели неверные данные')
  end
end.

Примеры
Введите год, месяц и день: 2017 5 8
09.05.2017

Введите год, месяц и день: 2017 12 31
01.01.2018

Введите год, месяц и день: 2016 2 28
29.02.2016

Введите год, месяц и день: 2017 11 31
Вы ввели неверные данные

1)

var

a,b:array [1..100] of integer;

i,j,k,a,b,f:integer;

begin

randomize;

readln(a);

readln(b);

k:=0;

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

f:=0;

for j:=a to b do

if (a[i]=j) and (a[i] mod 7 =0) then f:=1;

if f=0 then

begin

k:=k+1;

b[k]:=a[i];

end;

end;

for i:=1 to k do

writeln(b[i]);

end.

2)

var

a,b:array [1..100] of integer;

i,j,k:integer;

begin

randomize;

readln(k);

j:=0;

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

writeln(a[i]);

for i:=1 to 19 do

begin

if a[i]*a[i+1]>0 then

begin

j:=j+1;

b[j]:=a[i];

j:=j+1;

b[j]:=k;

end

else

begin

j:=j+1;

b[j]:=a[i];

end;

end;

j:=j+1;

b[j]:=a[20];

for i:=1 to j do

writeln(b[j]);

 

3)

var

a,b:array [1..20] of integer;

i,j,k1,k2:integer;

begin

randomize;

readln(k1);

readln(k2);

if k1<k2 then

begin

for i:=1 to 20 do

begin

a[i]:=random(135)-45;

writeln(a[i]);

end;

for i:=1 to k1-1 do

b[i]:=a[i];

for i:=k2+1 to 20 do

b[i]:=a[i];

j:=k2;

for i:=k1 to k2 do

begin

b[j]:=a[i];

j:=j-1;

end;

for i:=1 to 20 do

writeln(b[i]);

end;

end.

 

Немного теории в приложении, чтоб не надо было обьяснять ответы

1. В зависимости от изображения чисел системы счисления делятся на:
б. Арабские и римские;

2. Двоичная система счисления имеет основание:
б. 2;

3. Для представления чисел в шестнадцатеричной системе счисления используются:
с. цифры 0-9 и буквы A-F.

4. В какой системе счисления может быть записано число 402?
с. в пятеричной
Есть цифра 4 которой нет в 4ричной и менее

5. Чему равно число DXXVI в десятичной системе счисления?
а. 526;

6. Запись вида 352:
с. Отсутствует в двоичной системе счисления;

7. Какие цифры используются в шестеричной системе счисления?
а. 0,1,2,5;
От 0 до 5

8. какое минимальное основание должна иметь система счисления, если в ней можно записать числа: 401, 122, 232, 111;
а. 5;

9. Какое число записано некорректно?
с. 1212 в двоичной;

10. система счисления-это...?
 символический метод записи чисел

11. Что такое основание системы счисления?
Некое положительное число   1 которое определяет шаг разрядности

12. Позиционной системой счисления называют...
Система счисления где позиция имеет значение

13. Какое минимальное основание может иметь система счисления, если в ней записано число 235?
6

14. Запишите число 254 с римских цифр
CCLIV

15. Чему равно число XCII в десятичной системе счисления?
92

16. Запишите значения цифр A и E в 16-ричной системе счисления:...
А=10 Е=14

17. Переведите числа в десятичную систему счисления:
а. 1011011 ( в 2-ой системой счисления) = 91
б. 3421( в 5-ой системе счисления) = 486

18. Выполните действия:
а) 11011110(в 2-ой системе счисления)
 + 11010010(в 2-ой системе счисления);
 =110110000
в) 87АС(в 16-ричной системе счисления)
 - 2D6F(в 16-ричной системе счисления);
 = 5A3D
б) 20119(в троичной системе счисления)-  1012(в троичной системе счисления); - тут опечатка
г) 1101011 ( в двоичной системе счисления) * 1101 ( в двоичной системе счисления) = 10101101111

19. Переведите число 433 (в десятичной системе счисления) в двоичную, восьмеричную, шестнадцатеричную системы счисления:
110110001_2
661_8
1B1_16

20. вычислите сумму чисел 10(в 2-ой) + 10 (в 8-ой) + 10 (в 10-ой) + 10 (в 16-ой). Представить результат в двоичной системе счисления
2 + 8 + 10 + 16 = 26_10 = 1000110_2

21. В какой системе счисления будет верным равенство 4+4= 10 ?...
8

22. В какой системе счисления: а) 144(в 10-ой) записывается как 100;
144 = 12*12 значит основание 12
б) 98( в 10-ой) записывается как 200;
98 = 2*7*7 значит 7ричная
в) 48(в 10-ой) записывается как 300.
48 = 3*4*4 значит 4ричная