PROGRAMME EN LANGAGE PASCALE

(IL Y A UN MENU DANS CE PROGRAMME CONTINENT DIFFΙRENTES FONCTION MATHΙMATIQUE CREES PAR 'AHABRI MONSSIF')

program tout;
uses crt;
const p1=0;
t45=5;

var s5,x,t,h,p,o,r,z :real;
angle,ur,un,pht, par,pttc,q,pu,qu,tva,tr, s,f1, a,b,c,d,e,g,k,l,f:real;
hg,j,m,a1,s1,js,b1,t1,n,i:integer;
ch:char;
bool:boolean;
begin
clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln('  ENTREZ LE PASSWORD : ');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');
write(' - ');readln(s5);

clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln ;


if s5<>294753618 then
begin
clrscr;
hg:=2;
repeat
hg:=hg-1;

clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(' ENTREZ ERRONEE! NOMBES D"ESSAIS RESTANTS:',hg);

writeln;
writeln(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' Ί ENTREZ LE PASSWORD : Ί');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');

write(' - ');readln (s5);

clrscr;
until hg <=1;
clrscr;
end;
if s5=294753618 then


begin clrscr;

begin
writeln;
writeln;
writeln(' MENU PRINCIPALE ');
writeln;
WRITELN;
writeln(' Entrez le num‚ro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Systeme 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quitt‚ ');

writeln;
writeln;
writeln;
write(' Methode choisie: ');
read(i);


while i<=10 do

case i of
1: begin clrscr;
writeln(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' Ί LE PROGRAMME DU FACTORIELLE Ί');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');
writeln;
writeln;
writeln;
write(' Entrez le nombre n pour faire le factorielle :');readln(n);
f1:=1;
for j:=1 to n do
f1:=f1*j;
writeln;
writeln;
writeln;
writeln;
write( ' le r‚sulat est =======>', n,'!=',f1:5:2);
readln;

clrscr;

writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le num‚ro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Syst‚me 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quitt‚ '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' M‚thode choisie: ');
read(i);

end;


2:begin clrscr; textcolor(15);
WRITELN(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' Ί LE PROGRAMME DIVISION Ί');
Writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');
writeln;
writeln;
writeln;
writeln;
write(' Entrez le nombre R:');readln(r);
write(' Entrez le nombre s:');readln(s);
if s=0 then

writeln(' pas division inpossible ')
else
writeln;
writeln;
write(' la division est:',r/s:4:2);
readln;

clrscr;
textcolor(yellow);
writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le num‚ro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Syst‚me 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quitt‚ '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' M‚thode choisie: ');
read(i);

end;


3:begin clrscr; textcolor(15);
WRITELN(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' Ί LE PROGRAMME DE LA PUISSANCE Ί');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');

writeln;
writeln;
write(' Entrez le nombre x est: ');
readln(x);
write(' Donner la puissance n est: ');
readln(n);
r:=1;
for j:=1 to n do
r:=r*x;
writeln;
writeln;
writeln;
writeln(' le r‚sultat est: ',r:2:2);
readln;

clrscr;
textcolor(yellow);
writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le num‚ro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Syst‚me 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quitt‚ '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' M‚thode choisie: ');
read(i);

end;

4:begin
clrscr; textcolor(15);



WRITELN(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' Ί LE PROGRAMME DE L"EQUATION AXύ+BX+C=0 Ί');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');

writeln;
writeln;
write(' Entrez la valeurs de A dans ‚quation AXύ+BX+C:');READLN(A);
write(' Entrez la valeurs de B dans ‚quation AXύ+BX+C:');READLN(b);
write(' Entrez la valeurs de C dans ‚quation AXύ+BX+C:');READLN(c);

writeln;
writeln;
if (a=0) AND (B<>0) then

writeln(' la solution est: x=',-C/B)
else
IF (A=0) AND (B=0) THEN
WRITELN(' La solution n"exciste pas')
ELSE
d:=b*b-4*a*c ;
if(D>0) AND (C<>0) then
writeln(' La solution est : x1=',(- b + sqrt(d))/(2*a):4:2,' x2= ',(-B-SQRT(D)) /(2*A):4:2)
else
d:=b*b-4*a*c ;
if d=0 then
writeln(' La solution est: x= ', (-b)/(2*a):4:2)
else
if d<0 then
writeln(' Il n a pas de solution')
else
if C=0 then
writeln(' La solution est:', 'X1=',0,' X2=', -b/a);
readln;

clrscr;
textcolor(yellow);
writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le num‚ro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Syst‚me 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quitt‚ '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' M‚thode choisie: ');
read(i);

end;

5:begin clrscr; textcolor(15);

WRITELN(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' Ί LE PROGRAMME RESOUDRE UN SYSTEME Ί');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');

writeln;
writeln;
write(' Entrez a de systeme aX+bY=c ET dX+eY=f:');readln(a);
write(' Entrez b de systeme aX+bY=c ET dX+eY=f:');readln(b);
write(' Entrez c de systeme aX+bY=c ET dX+eY=f:');readln(c);
write(' Entrez d de systeme aX+bY=c ET dX+eY=f:');readln(d);
write(' Entrez e de systeme aX+bY=c ET dX+eY=f:');readln(e);
write(' Entrez f de systeme aX+bY=c ET dX+eY=f:');readln(f);
g:= a*e-b*d;
r:=c*e-b*f;
t:=a*f-d*c;
writeln;
writeln;
writeln;
writeln;
if g<>0 then
writeln(' La solution est :','x=',(c*e-d*f)/(a*e-b*d):4:2,' y=',(a*f-d*c)/(a*e-b*d):4:2)
else
if (g=0) and ((r<>0) or (t<>0)) then
writeln(' pas de solution')
else
g:= a*e-b*d;
if (g=0) and ((r=0) and (t=0)) and (( a<>0) or ( b<>0) or (d<>0) or ( e<>0)) then
writeln(' Il y a une infinite de solution de (x,y)')
else
g:= a*e-b*d;
if (g=0) and ((r=0) and (t=0)) and ( a=0) and ( b=0) and (d=0) and ( e=0) and((c<>0) or(f<>0)) then
writeln('Pas de solution')
else
g:= a*e-b*d;
if (g=0) and ((r=0) and (t=0)) and ( a=0) and ( b=0) and (d=0) and ( e=0) and((c=0) or(f=0)) then
writeln(' Il y a une infinite de solution (x,y) ');
readln;

clrscr;
textcolor(yellow);
writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le num‚ro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Syst‚me 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quitt‚ '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' M‚thode choisie: ');
read(i);

end;

6:begin clrscr;textcolor(15);
WRITELN(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' Ί LE PROGRAMME DU PGCD Ί');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');

writeln;
writeln;
write(' Entrez la valeur de a:');readln(a1);
write(' Entrez la valeur de b:');readln(b1);
while b1<>0 do
begin

t1:=a1;
a1:=b1;
b1:= t1 mod b1;
end;
writeln;
if t1=0 then
writeln(' Pas de PGCD a et b nuls ou l"un des deux ')

else
writeln(' Le PGCD est :',a1);

readln;

clrscr;
textcolor(yellow);
writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le numιro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Ιquation 9 - Jour de naissance');
writeln(' 5 - Systιme 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quittι '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' M‚thode choisie: ');
read(i);

end;
7:
BEGIN CLRSCR;
TextColor(15);
WRITELN(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln(' LE PROGRAMME DU TVA ');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');

writeln;
writeln;
WRITE(' Tapez la quantitι du produit:');READLN(Q);
WRITE(' Tapez le prix unitaire en DH :');READLN(PU);
WRITE(' Tapez le TVA:');READLN(TVA);
WRITE(' Tapez le taux de remise:');READLN(TR);

PHT:=Q*PU;
PAR:=PHT-PHT*TR;
PTTC:=PHT+PHT*TVA;
writeln;
writeln;
writeln;
WRITE(' LE PRIX HORS TAXE PHT:');WRITELN(PHT:4:2,'DH');
WRITE(' LE montant aprθs remise PAR:');WRITELN(PAR:4:2,'DH');
WRITE(' LE TAUX DE TVA EST:');WRITELN(TVA:4:2);
WRITE(' LE PRIX TOUTES TAXE COMPRISE PTTC:');WRITELN(PTTC:4:2,'DH');
READLN;

clrscr;
textcolor(yellow);
writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le numιro de la mιthode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Systιme 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quittι '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' M‚thode choisie: ');
read(i);

end;
8: begin textcolor(15);
clrscr;

WRITELN(' ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»');
writeln('  LE PROGRAMME PUISSANCE COMPLEXE Z=A+IB ');
writeln(' ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ');
writeln;
writeln;
write(' Entrez le nombre a:');readln(a);
write(' Entrez le nombre b:');readln(b);
write(' Entrez la puissance n:');readln(n);
r:=sqrt(a*a+b*b);
t:=1;
for i:=1 to n do
t:=t*r;
if a=0 then
writeln('La puissamce du complexe est : ',p1)
else
begin
angle:=arctan(b/a);
angle:=n*angle;
ur:=t*cos(angle);
un:=t*sin(angle);
writeln('La puissamce du complexe Z est :',ur:2:1,'+i',un:2:1);
end;
readln;
clrscr;

writeln;
writeln;
writeln(' MENU PRINCIPALE '); writeln;
WRITELN;
writeln(' Entrez le numιro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Syst‚me 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quittι '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' Mιthode choisie: ');
read(i);

end;



9:
begin clrscr ; writeln;
WRITELN(' ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ');
writeln(' LE PROGRAMME JOUR DE NAISSANCE ');
writeln(' ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ');
writeln;
write(' programme qui');
writeln(' donne le jour de naissance a partir d"une date');
writeln;
writeln;
writeln;
writeln;
writeln(' donner une date correte');
writeln;
writeln;
write(' jour:');
read(j);
bool:=false;
while bool=false do
begin
if (j<=0 ) or (j>31) then
begin
bool:=false;
write(' le jour doit etre entre 1 et 31 ');
write(' repetez:');
readln(j);
end
else
bool:=true;
end;
write(' mois:' );
readln(m);
bool:=false;
while bool=false do
begin
if (m<=0)or (m>12) then
begin
bool:=false;
write(' le mois etre entre 1 et 12');
write(' repetez:');
readln(m);
end
else
bool:=true;
end;
write(' annee:');
read(a1);
bool:=false;
while bool=false do
begin
if (a1<=0) or (a1>5000) then
begin
bool:=false;
write(' l"annee doit etre entre');
write(' 1 et 5000 repetez:');
readln(a1);
end
else
bool:=true;
end;
if m<3 then
m:=m+10
else
m:=m-2;
if m>10 then
a1:=a1-1;
s1:=a1 div 100;
a1:=a1 mod 100;
js:=( trunc(2.6*m-0.2)+j+a1+a1 div 4-2*s1+777)mod 7;
writeln;
write(' le jour est un: ');
case js of
1:writeln('vendredi');
2:writeln('samedi');
3:writeln('dimanche');
4:writeln('lundi');
5:writeln('mardi');
6:writeln('mercredi');
7:writeln('jeudi');
end;
ch:=readkey;
begin clrscr;

writeln;
writeln;
writeln(' MENU PRINCIPALE ');
writeln;
WRITELN;
writeln(' Entrez le numιro de la methode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Systιme 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quittι ');

writeln;
writeln;
writeln;
write(' Mιthode choisie: ');
read(i);

end;
end;
10:begin

clrscr;
WRITELN(' ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ');
writeln('  LE PROGRAMME VOTRE VIE PAR SECONDE ');
writeln(' ΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ');

WRITELN;
writeln;
writeln;
write(' Entrez votre jours de naissance:');readln(a);
write(' Entrez votre mois de naissance:');readln(b);
write(' Entrez votre annιe de naissance:');readln(c);
write(' Entrez le jour aujourd'hui:');readln(e);
write(' Entrez le mois aujourd'hui:');readln(f);
write(' Entrez annιe aujourd'hui:');readln(g);



p:=365;
x:=(g-c)*p;
h:=30;
t:=(b+f)*h;
o:=e+a;
z:=86400;
r:=(o+t+x)*z;

write ('votre vie en seconde est:');writeln(r);
readln;

clrscr;

writeln;
writeln;
writeln(' MENU PRINCIPALE ');textcolor(15);
writeln;
WRITELN;
writeln(' Entrez le numιro de la mιthode ');
writeln(' ');
writeln;
writeln;
writeln;
writeln(' 1 - Factoriel 6 - Pgcd ');
writeln(' 2 - Division 7 - Tva ');
writeln(' 3 - Puissance 8 - Puissance d"un complexe ');
writeln(' 4 - Equation 9 - Jour de naissance');
writeln(' 5 - Systιme 10 - Calcule votre vie en seconde');
writeln;
writeln(' 11 - Quittι '); TEXTCOLOR(yellow);

writeln;
writeln;
writeln;
write(' Mιthode choisie: ');
read(i);
clrscr;
end;

11: end;
NormVideo;
clrscr;
end;
clrscr;
end;


NormVideo;
clrscr;
end.