Informatique
h:=t2 div 3600;m:=(t2 mod 3600)div 60; s:=t2 mod 60; writeln('les deux trains vont se rencontrer après ',h:3,'heures ,',m:3,'minutes et',s:3, 'secondes'); end. program ex2p68; uses wincrt; var n:integer;
begin gotoxy(40,5); writeln('introduire n'); gotoxy(60,5);readln(n); gotoxy(20,10); writeln('la somme des ',n,'premiers entiers naturels est',((n*(n+1))/2) :8:0 ); end. program ex6p68; uses wincrt; var rep,chem:string ; begin writeln('introduire le nom du repertoire');readln(rep); writeln('introduire le chemin');readln(chem);
mkdir(chem+rep);