Program zap_3;
Const n=10;
Type sportsmen = record
fio : string[40] ;
rost:real;
ves:integer; 
end;
Var sp : sportsmen ; 
i, j, kol, s : integer; sr : real;
Begin
kol:=0; 
With sp do 
For i:=1 to n do 
begin
Write (' введите ФИО ', i ,' ');
Readln (fio);
write ( 'введите рост: ' );
readln ( rost );
write ( 'введите вес: ' );
readln ( ves );
if ves>70 then kol:=kol+1;
end;
writeln ( ' количество спортсменов, чей вес превышает ', kol );
readln;
end.