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&gt-70 then kol:=kol+1-

end-

writeln ( ‘ —количество спортсменов, чей вес превышает -‘, kol )-

readln-

end.