Запишите на языке паскаль программу решения обьяален набор в школьную бесбольную каманду известен рост каждого из n учястников желаюшего попасть в эту команду. подсчитайте количество претендентов имеюших шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. считайте рост претендента в команду случяйным числом из диапазона от 150 до 200 см, а число претендентов n=50

Const n=50;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51)+150;
 write(a[i],' ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]>=170 then k:=k+1;
writeln('k = ',k);
end.

Пример (для n=10):
157 183 166 153 200 151 200 180 161 175
k = 5

Предположим, что фальшивая монета легче подлинной.
Разделим монеты на группы по 15 и одну монету отложим в сторону. Взвесим группы по 15. Если весы находятся в равновесии, то фальшивая монета отложена. Если же одна из чаш весов оказалась легче, то фальшивая монета там.
15 монет из легкой чаши снова разделим на 7, 7 и монета в стороне. Повторим взвешивание. Если фальшивая монета не найлена, то из более легкой чаши монетки разделим на 3, 3 и одну.
Повторим взвешивание с лекгой чашей  в четвертый раз. 1, 1 и монета в стороне. 
Фальшивка найдена не более чем за 4 взвешивания.

Program p1;
var k,t:integer;
begin
write('кг = ');
readln(k);
t:=k div 1000;
writeln('В ',k,' кг полных тонн ',t);
end.

Пример:
кг = 54937
В 54937 кг полных тонн 54

program p2;
var a,b,k:integer;
begin
a:=543;
b:=130;
k:=a div b;
writeln('Количество квадратов = ',k);
end.

Результат:
Количество квадратов = 4

program p3;
var a,b:integer;
begin
write('Введите четырехзначное число: ');
readln(a);
b:=9*10000+a;
writeln('Полученное число = ',b);
end.

Пример:
Введите четырехзначное число: 4937
Полученное число = 94937

program p4;
var a,b:integer;
begin
write('Введите трехзначное число: ');
readln(a);
b:=(a mod 100)*10 + a div 100;
writeln('Полученное число = ',b);
end.

Пример:
Введите трехзначное число: 437
Полученное число = 374

program p5;
var v1,v2,v3,t1,t2,t3,s:real;
begin
write('v1, t1: ');
readln(v1,t1);
write('v2, t2: ');
readln(v2,t2);
write('v3, t3: ');
readln(v3,t3);
s:=v1*t1+v2*t2+v3*t3;
writeln('Пройденный путь = ',s:5:2, ' км ');
end.

Пример:
v1, t1: 5 2
v2, t2: 3 0.5
v3, t3: 4 1.5
Пройденный путь = 17.50 км