Demande de laide pour une solution dun algorithme

Algorithme produit;
Var x,y: entier;
Début
Écrire('entre deux nombre svp:');
Lire(x,y);
Si(x>0)et(y>0)ou(x<0)et(y<0)alor
Écrire('le produit est négatif');
Si(x=0)ou(y=0)alors
Écrire(le produit et positife');
Fin.
Voici ma solution pour un algorithme qui demande a l'utilisateur deux nombre puis lui dit si leur produit est positifs ou négatif
Corriger moi svp
Merci