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

Question

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

---

---

Answer 1

Var rost,N,count,k:integer;
begin
readln(N);
for k:= 1 to N do
begin
readln(rost);
if rost >=170 then
count:=count+1;
end;
writeln(count);
end.

Comments

var rost,N,count,k:integer;
begin
readln(N);
for k:= 1 to N do
begin
randomize(rost);
rost:=random(150,200);
writeln(rost);
if rost >=170 then
count:=count+1;
end;
writeln(count);
end.

Answer 2

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.