Programmation/Manipulation de chaînes
program p (data,output);
var a,b : integer; data : text;
begin
reset(data);b := 0; {on met b a zero}
while not eof(data) do
begin readln(data,a);
if a > 42 then b := b+1 end;
writeln(a)
end.