Как узнать информацию через провайдера другого человека?

первая

program n1; uses crt; var a,b,c,k: integer; beginwriteln('vvedite a,b,c'); readln(a,b,c); if (a=b)and(b=c) then begin k: =1; writeln('ravnostoronnij') end elseif (a=b)or(b=c)or(a=c) then begin k: =1; writeln('ravnobedrennij'); end; if (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a)) then begin k: =1; writeln('pryamoygolnij'); end; if (a> b+c)or(b> a+c)or(c> a+b) then begin k: =1; writeln('treygolnik nelza sostavit'); end; if k=0 then writeln('treygolnik raznostoronnij'); readlnend.

вторая 

program n1; uses crt; var a,b,c: integer; beginclrscr; writeln('vvedite a,b,c'); readln(a,b,c); if (a> 0)and(b> 0)and(c> 0) then writeln('summa kvadratov=',sqr(a)+sqr(b)+sqr(b)); if (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('summa =',a+b+c,', proizvedenie =',a*b*c); readlnend.