Какое из этих слов лишнее брюссель лондон мадрид москва нью йорк париж

Москва - остальные города - это "заграница"

(см. объяснение)

Объяснение:

program task;

var i: integer;

const N=5;

procedure writeOut(i: integer);

begin

 if(i<N) then write(', ')

 else writeln('.');

end;

begin

 if(N<1) then begin writeln('N>0 и целое!'); exit; end;

 writeln('ЦИКЛ FOR:');

 for i:= 1 to N

   do begin

        write(i); writeOut(i);

      end;

 writeln;

 writeln('ЦИКЛ WHILE:');

 i:= 1;

 while(i<N+1)

   do begin

        write(i); writeOut(i);

        i:= i+1;

      end;

 writeln;

 writeln('ЦИКЛ REPEAT:');

 i:= 1;

 repeat

   write(i); writeOut(i);

   i:= i+1;

 until i=N+1;

end.

Модуль сделаем с функцией проверки на чётность чисел.

Основную программу почти не менял - см. комментарии

Объяснение:

в модуле есть функция getChet которой передаётся число, и на после проверки возвращает чётное это число или нет

модуль

unit pr1u;

interface

 function getChet(i:integer):boolean;

implementation

 function getChet(i:integer):boolean;

 begin

   getChet := i mod 2 = 0;

 end;

begin

end.

основная программа

program pr1;

(*добавляем модуль pr1u для использования в программе*)

uses crt, pr1u ;

var

 a:array[1..100]of integer;

 i,p,p0,p1,sum,temp,n,j:integer;

begin

 clrscr;

 write('n=');

 read(n);

 for i:=1 to n do begin

   write('a[',i,']=');

   read(a[i]);

 end;

 writeln;

 p:=1;

 for i:=1 to n do

(*  тут идёт использование функции getChat из модуля pr1u, которая проверяет отправленное ей число на чётность*)

   if getChet(i) then p:=p*a[i];

 writeln('proizvedenie=',p);

 writeln;

 for i:=n downto 1 do

   if a[i]=0 then p0:=i;

 writeln('pervyi 0 v pozicii - ',p0);

 writeln;

 for i:=1 to n do

   if a[i]=0 then p1:=i;

 writeln('poslednii 0 v posicii - ',p1);

 writeln;

 sum:=0;

 for i:=p0 to p1 do

   sum:=sum+a[i];

 writeln('summa=',sum);

 writeln;

 readkey;

end.