Помогите решить пожалуйста даю 20 баллов!!! Дано целое число N (0

Program tak;
var a,b,c,N:integer;
begin writeln(введите число N (0 readln(N);
 b:=0; 
for a:=99 downto 10 do  begin 
  if (N a div 10) and (N a div 10) then 
  b:=a+b; 
 end;
 writeln(b);
end.
эт первая

program tak2;
var a,b,c,d:integer;
begin writeln(введите два числа );
 readln(a,b);
 d:=0; 
for c:=99 downto 10 do  begin 
  if (a = c div 10) or (b = c mod 10) then 
  d:=c+d;
  end;
 writeln(d);
end.
эт вторая