Pascal - problemi matematici

mi servirebbe il programma in pascal di questi due problemini.. grazie in anticipo!!

1. "introdotti da tastiera tre numeri controllare se questi rappresentano le misure dei lati di un triangolo. in tal caso calcolare il perimetro." (controllare che i tre numeri siano positivi; affinchè esista il triangolo, il lato maggiore deve essere minore della somma degli altri e minore della loro differenza.)

2. "introdotti da tastiera calcolare il minimo e il massimo dei 3 numeri introdotti."

grazie

questo è un forum e si danno aiuti.. non si fanno programmi su richiesta...

tuttavia.. se troverò qualche minuto più tardi, butterò giù qualche riga..

non son difficili...

considerati fortunata perchè qui è raro che si risponde a questo tipo di richieste...

cmq ero in vena e quindi eccoti qua..

program triangolo;
uses crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('Inserisci 3 numeri');
readln(a,b,c);
d:=a+b+c;
 if not ((a>0) and (b>0) and (c>0)) then
  begin
   writeln('Le misure immesse non sono corrette');
   readln;
  end
 else
if a>b then
 begin
  if a>c then
    begin
     if (a<(b+c)) and (a>abs(b-c)) then
       writeln('i tre numeri possono essere segmenti di un triangolo con perimetro:',d)
     else
      writeln('i tre numero non sono misure dei segmenti di un triangolo'); 
     readln;
    end
  else
    begin
     if (c<(a+b)) and (c>abs(a-b)) then
      writeln('i tre numeri possono essere segmenti di un triangolo con perimetro:',d)
     else
      writeln('i tre numero non sono misure dei segmenti di un triangolo'); 
     readln;
    end;
  end 
else
 begin
  if (b<(a+c)) and (b>abs(a-c)) then
    writeln('i tre numeri possono essere segmenti di un triangolo con perimetro:',d)
  else
   writeln('i tre numero non sono misure dei segmenti di un triangolo'); 
  readln;
 end;
readln;
end.

program maggiore_minore;
uses crt;
var a,b,c,x:integer;
begin
 writeln('inserisci il primo numero');
 readln(a);
 writeln('inserisci il secondo numero');
 readln(b);
 if a>b then
  begin
   x:=a;
   a:=b;
   b:=x;
  end;
 writeln('Inserisci il terzo numero');
 readln(c);
 if (b>c) and (a<c) then
  begin
   x:=b;
   b:=c;
   c:=x;
  end
 else
  begin
   x:=a;
   a:=c;
   c:=b;
  end;
 writeln('numero maggiore: ',c,'; Numero minore: ',a);
 readln
end.

dovrebbero funzionare... fai qualche prova.. e se c'è qualche errore posta qui che provo a capire dve sta..

anche se è meglio lo facessi tu dato che ti ho già dato il piatto pronto..

p.s. scommetto che si tratta di due esercizi per le vacanze vero??