مساعدة في الباسكال تمرين

[salemk]

اللي فهمتو
1) saisir deux entier a et b
2) afficher la somme a+b, a et b si a+b <1000

programme itératif sans modules
----------------------------------------------------------

Program djelfa1 ;
Uses wincrt ;
Var 
A,B : integer ;
Ok:Boolean;
Begin
While ok= false do 
begin
Readln(A);
Readln(B);
If A+B<1000 then
Ok:=true;
End;
Writeln(a+b);
Writeln(A);
Writeln(B);
End.

programme récursif avec un module
-----------------------------------------------------------------

Program djelfa2 ;
Uses wincrt ;
Procedure lecture (var x,y :integer);
Begin
Readln(x);
Readln(y);
End;
Var 
A,b:integer;
Begin
Lecture(a,b);
If A+B>1000 then
Lecture(a,b);
Writeln(a+b);
Writeln(A);
Writeln(B);
End.