Функции: Определить даты предыдущих дней для n введеных дат

program z612;
{Функция 1}
function vg(n:integer):real;
var ng,ks:integer;
begin
ng:= n mod 100;
ks:= n mod 1000;
ks:= ks div 100;
 if ((ng <> 0) and (ng mod 4 = 0)) or ((ng=0) and (ks mod 4 = 0)) then
     Writeln ('Год ',n,' является высокосным')
 else
     Writeln ('Год ',n,' не является высокосным'); 
end;
{Конец Функция 1}
 
{Функция 2}
function my(m,y:integer):real;
var yng,yks:integer;
begin
 yng:= y mod 100;
 yks:= y mod 1000;
 yks:= yks div 100;
   if ((yng <> 0) and (yng mod 4 = 0)) or ((yng=0) and (yks mod 4 = 0)) then
 begin
       case m of
       1,3,5,7,8,10,12: Writeln('31 день');
       2: Writeln('29 дней');
       4,6,9,11: Writeln('30 дней');
       end;
       end else
       case m of
       1,3,5,7,8,10,12: Writeln('31 день');
       2: Writeln('28 дней');
       4,6,9,11: Writeln('30 дней');
       end;
end;
{Конец Функция 2}
 
{Программа 6.12}
var n1,y1,m1: integer;
begin 
Writeln('Введите год...');
readln(n1);
vg(n1);
writeln('Нажмите Enter');
readln;
Writeln('Введите номер месяца и год');
readln(m1,y1);
my(m1,y1);
end.