В некотором населённом пункте n=25 домов. Считайте жильцов дома случайным числом из диапазона от 50 до 180 человек. Составьте программу подсчёта количества жителей населённого пункта.

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

хай                                                                                                                                                                           

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

крестьянин   должен   переправить   волка   и   капусту с   собой.а   козу   надо   кинуть

  на   другой   берег.