Вывести число дней, оставшихся до нового года

var 
     x, y: real;
begin
    x:= 4.456;
    y:= frac(x); // в y будет записано число 0.456

uses crt;
const m:array[1..2,1..12]of integer=((31,28,31,30,31,30,31,31,30,31,30,31)
                                     ,(31,29,31,30,31,30,31,31,30,31,30,31));
var s,y,mon:integer;
t,i:integer;
begin
clrscr;
writeln('Year?');
readln(y);
repeat
      writeln('Mounth?');
      readln(mon);
until (mon>0)and(mon<12);
if y div 4=0 then t:=2 else t:=1;
s:=m[t,mon];
for i:=mon+1 to 12 do
begin
  s:=s+m[t,i];
end;
writeln(s);
readkey;
end.

uses crt;
var num:integer;
n1,n2:integer;
t:boolean;
begin
clrscr;
writeln('Num?');
t:=false;
readln(num);
if num=0 then writeln('0,0');
if num>0 then
begin
  for n1:=1 to num do
  begin
    for n2:=1 to num do
    begin
      if sqr(n1)+sqr(n2)=num then
      begin
           writeln(n1,',',n2);
           t:=true;
      end;
    end;
  end;
end;
if num<0 then
begin
  for n1:=1 to num do
  begin
    for n2:=-1 to -num do
    begin
      if sqr(n1)+sqr(n2)=num then
      begin
           writeln(n1,',',n2);
           t:=true;
      end;
    end;
  end;
end;
if t=false then writeln('No nums');
readkey;
end.

uses crt;
var a:longint;
s:string;
m:array[1..2,1..8]of byte;
i,j,k,c,d:integer;
 
function StrToInt(s:string):integer;
var t,k:integer;
begin
  val(s,t,k);
  StrToInt:=t;
end;
 
begin
clrscr;
writeln('Num?');
readln(a);
str(a,s);
for i:=1 to length(s) do
begin
  m[1,i]:=StrToInt(s[i]);
end;
 
d:=0;
for i:=1 to length(s) do
begin
  k:=m[1,i];
  c:=0;
  for j:=1 to length(s) do
  begin
    if m[1,j]=k then c:=c+1;
  end;
    if c>1 then
    begin
      d:=d+1;
      m[2,d]:=k;
    end;
 
end;
writeln;
 
for i:=1 to k do
begin
  writeln(m[2,i]);
end;
 
readkey;
end.

uses crt;
var n:longint;
    i:byte;
    m1,m2:set of byte;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
m1:=[];
m2:=[];
while n>0 do
 begin
  if n mod 10 in m1 then m2:=m2+[n mod 10]
  else m1:=m1+[n mod 10];
  n:=n div 10;
 end;
if m2=[] then write('Все цифры по 1 разу')
else
 begin
  writeln('Повторяются:');
  for i:=0 to 9 do
  if i in m2 then write(i,' ');
 end;
readln
end.