Записать программу на языке Паскаль

var rost,N,count,k:integer;beginreadln(N);for k:= 1 to N dobeginreadln(rost);if rost >=170 thencount:=count+1;end;writeln(count);end.

program sport170; var n, i, r:integer; begin n:=0; for i:=1 to 50 do begin r:=random(50)+150; if r>170 then n:=n+1; end; writeln ('Количество претендентов = ', n); end.