1.с клавиатуры вводится действительное число a.найти его квадратный корень. 2.с клавиатуры вводится действительное число p.записать отдельно его целую часть c. составить программу.

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.