ارجوكم ساعدوني في حل تمارين الباسكال

[salahcab]

السلام عليكم ارجوكم ساعدوني في حل هذين التمرينين في الباسكال
exo 1
Ecrire un programme qui demande a l'utilisateur la valeur de 3 variables réelles et qui affiche le max
donnez une version sans utiliser le else et une version avec
exo 2
Ecrire un programme qui permet de calculer le produit des nombres pairs et impairs jusqu'a N

[st sousou]

Program comparaison
Var
A,B,C : REAL ;
Write(‘A,B,C’) ;
READ(A,B,C) ;
If(A>B and A<C) then
Write(A ,’MAX’) ;
If (B>A and B>C ) then
Write (B ,’MAX’) ;
If (C>A and C>B)then
Write (C,’MAX’) ;
End.

[st sousou]

exercice2

Program produit pairimpair
Var
N,i,Ppair ,Pimpair :integer ;
Begin
Write(‘N=’) ;
Read(N) ;
Ppair :=1 ;
Pimpair :=1 ;
For i :=1 to N do
If i mod 2 =0 then
Ppair :=Ppair*i ;
Else
Pimpair :=Pimpair*i ;
Else
End.

[salahcab]

بارك الله فيك يااختاه