(Programme que l'on fait en cours mais avec un prof où c'est débrouille toi)
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var S,ST,SP, I,NBF,NBH,STF,STH,XG,XF,P,T,X28 : integer ;
R ,MOYT,MoyP,MoyST,MoySp,MoyTF,MoyTH : currency;
BEGIN
ST:=0;
SP:=0;
I:=0;
NBF:=0;
NBH:=0;
STH:=0;
STF:=0;
XG:=0;
XF:=0;
While ((S=1) OR (S=2)) DO
BEGIN
I:=I+1;
writeln ('poids');
readln (P);
writeln ('taille');
readln (T);
ST:= ST+T;
Sp:=Sp+P;
END;
IF (S=1) THEN
BEGIN
NBH:=NBH+1;
STH:=STH+1;
END
ELSE
BEGIN
NBF:=NBF+1;
STF:=STF+T;
END;
R:= T/P;
IF (R<2.8) THEN
BEGIN
X28:= X28+1;
END;
MoyST:=ST/I;
MoySP:=Sp/I;
IF (I>0) Then
BEGIN
MoyT:= ST/I;
MoyP:=SP/I ;
writeln (moyT,Moyp) ;
END
else
begin
writeln ('incalculable');
END;
Writeln (X28);
writeln (XG);
writeln (XF);
IF (NBF>0) THEN
begin
MoyTF :=STF/NBF;
writeln (MoyTF);
end
ELSE
begin
writeln ('Incalculable');
END;
IF (NBH>0) THEN
BEGIN
MoyTH :=STH/NBH;
end
Else
begin
writeln('incalcau');
END;
writeln (X28);
IF (S=1) and (T>180) and (P>80) Then
BEGIN
XG:=XG+1;
END;
IF (S=2) AND (T>85) AND (T<175) and (P>50) and (P<80) THEN
BEGIN
XF:=XF+1 ;
END ;
BEGIN
writeln ('sexe');
readln(S);
END;
{ TODO -oUser -cConsole Main : placez le code ici }
end.