program ex9p69; uses wincrt; type nombre=0..999; var n1,n2,m1,m2:nombre; p,r,q:integer; begin gotoxy(10,5);write('intrioduire le premier membre de la multiplication'); gotoxy(64,5);read(n1); gotoxy(10,6);write('intrioduire le deuxième membre de la multiplication'); gotoxy(64,6);read(n2); p:=n1*n2; gotoxy(20,15);write(n1:3); gotoxy(19,16);write('x'); gotoxy(20,16);write(n2:3); gotoxy(19,17);write('......'); gotoxy(19,18);write('=',p:3); gotoxy(10,19);write('intrioduire le premier membre de la division'); gotoxy(60,19);read(m1); gotoxy(10,20);write('intrioduire le deuxième membre de la division'); gotoxy(60,20);read(m2); q:=m1 div m2; r:=m1 mod m2; gotoxy(30,15);write(m1:3,':',m2:3); gotoxy(30,16);write(r:3,':','...'); gotoxy(33,17);write( ':',q:3); gotoxy(33,18);write(':'); gotoxy(69,25);write('***merci***'); end. program ex10; uses wincrt; var u0,n,r:integer; s:longint; begin writeln('introduire uo ,ret n');readln (u0,r,n); s:=u0+n*r; writeln('le',n,' ième terme de la suite un de premier terme ',u0,'et de raison ',r,'est un= ',s:8); end. program ex5; uses wincrt; var t,t1:real; h,m,s,t2:integer; begin t:=60 / (70+55); t1:=t*3600; t2:=trunc(t1);

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);