Solution d'un exercice de turbo pascal

program SansNom;

var i,s:integer;
begin
i:=1; s:=1;

while (i<100) do
      begin
      i:=i+2; // 1, 3, 5, 7...
      s:=s+i; // 1, 1+3, 1+3+5, 1+3+5+7...
      end;

writeln(s);

writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.

voila le program à peyt pres:

program coeur;
uses wincrt;
var a,b,c :integer ;
begin

reapat
write (' entrer svp le nombre A ( a doit etre inferieru à 100 ):');readln (a);
until (a < 100 ) and (trunc (a/2) = a/2 ) ; ;

reapat
write (' entrer svp le nombre B ( a doit etre inferieru à 100 ):');readln (b);
until (b < 100) and (trunc (b/2) = b/2 ) ;

writeln ('le reslutat est :'s:=a+b) ;

end.