Создайте бюллетень на интересную вас тему

какой ваш любимый цвет?

- красный

- желтый

- зеленый

- силий

вопрос: что бы вы хотели изменить в собственной жизни?

варианты  ответа:

- работу

- место учебы

- мужа/жену

- место жительства

Var  a,i,n,s: integer;     function q (a: integer): integer;   var h,n: integer;   begin          n: =a;           h: =0;           q: =0;         while n> 0 do        begin          n: =n div 10;           h: =h+1;             end;             if h = 5 then              begin                n: =a div 10000;                   if n=3 then                      if a mod 2 = 0 then                  q: =1;               end ;         end;               begin  readln(a);   i: =a;     while q(i)< > 1 do      begin      writeln('error');     readln(a);     i: =a;     q(i);           end;           while a> 0 do            begin              s: =s+a mod 10;               a: =a div 10;             end;           writeln(s);     end.

Var a: array[1..1000000]of integer; i,min,n,c: integer;     begin           readln(n);           for i: =1 to n do           begin             read(a[i]);                 if i = 1 then                 min: =a[i];             if a[i]< min then               begin             min: =min+a[i] ;             a[i]: =min - a[i];             min: =min - a[i];                 c: =i;                 end;           end;       writeln('a[',c,']=',min);       end.