Bonjour,

Qu'ai-je fait de mal?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program calcul_somme0000;
uses wincrt;
var
s,somme:longint;
e:integer;      {la logique}
n:byte;
 
procedure saisir (var n:byte);
var i:byte;
begin
repeat
      for i:=1 to n do
       writeln('donner le nb de lignes = ');
       readln(n)
until (n>=2)
end;
 
function somme (n:byte);
var e,s,i:longint;
begin
     s:=0;
		 for i:=1 to n do
		 write('saisir l"entier = ',i);
		 read(e);
		 s:=s+e;
		 somme:=s
end;
begin
     saisir(n);
		 writeln('la somme des entiers =',somme(n));
end.