correction bac TP

le but de ce sujet est de bien préparer pour passer l'examen du bac TP toutes vos questions seront les bienvenues.
Je tiens à signaler que ce sujet est consacré pour les élèves du 4ème année scientifiques (sciences expérimentales, mathématiques et sciences techniques)

BAC PRATIQUE 25 MAI 2010 A 10 H

Program bac2010;
uses wincrt;
var
n: integer;

Procedure Saisie (Var a: integer);
begin
repeat
writeln ('donnez un entier supérieur ou égale à10');
readln (a);
until (a >=10);
end;

Function verif (a:integer): boolean;
var m,p,K: integer;
begin
Repeat
m:= a div10;
p:= a mod10;
k := Abs (m-2*p);
until
K In [0..9];
verif := K In [0..7] ;
End;

{P,P**
Begin
Saisie (n);
If (verif (n) = True ) then
Writeln (n, 'est divisible par 7')
else writeln (n' n''est pas divisible par 7') ;
End;
end.



BAC PRATIQUE 25 MAI 2010 A 10 H

Program bac2010;
uses wincrt;
var
n: integer;

Procedure Saisie (Var a: integer);
begin
repeat
writeln ('donnez un entier supérieur ou égale à10');
readln (a);
until (a >=10);
end;

Function verif (a:integer): boolean;
var m,p,K: integer;
begin
Repeat
m:= a div10;
p:= a mod10;
k := Abs (m-2*p);
until
K In [0..9];
verif := K In [0..7] ;
End;

{P,P**
Begin
Saisie (n);
If (verif (n) = True ) then
Writeln (n, 'est divisible par 7')
else writeln (n' n''est pas divisible par 7') ;
End;
end.