Составить сказку о единицах измерения)

Жила была единица измерения, и она людям во всяких работах и  сопутствовала  им по жизни. за что бы они не взялись единица измерения им во всем

procedure findmin(startindex: integer;                     var lowindex: integer);       var lowelem: real;               u: integer;   begin       lowindex : = startindex;       lowelem : = m[startindex];       for u: =startindex+1 to n do          if m[u] < lowelem then              begin                   lowelem : = m[u];                     lowindex : = u             end   end;

begin       for j: =1 to n-1 do         begin                 findmin(j, i);                 swap(m[j],m[i])        end end.

Program go; var x,y,z,n: real; begin write('введите сегодняшнее число: ');   readln(x); write('введите номер сегодняшнего месяца: ');   readln(y);   begin  if y=1  then n: =365-x    else;   if y=2    then n: =365-31-x    else;   if y=3  then n: =365-31-28-x    else;   if y=4    then n: =365-31-28-31-x    else;   if y=5    then n: =365-31-28-31-30-x    else;   if y=6    then n: =365-31-28-31-30-31-x    else;   if y=7  then n: =365-31-28-31-30-31-30-x    else;   if y=8    then n: =365-31-28-31-30-31-30-31-x    else;   if y=9    then n: =365-31-28-31-30-31-30-31-31-x    else;   if y=10  then n: =365-31-28-31-30-31-30-31-31-30-x    else;   if y=11  then n: =365-31-28-31-30-31-30-31-31-30-31-x    else;   if y=12    then n: =365-31-28-31-30-31-30-31-31-30-31-30-x    else;   end;     writeln ('до нового года осталось:   ',n); end.