Дана последовательность целых чисел а1 . найти два минимальных элемента последовательности количество чисел вводится с клавиатуры

uses crt; var a: array[1..100] of real; i,n,ind: integer; min,min2: real; begin  clrscr;   write('n='); read(n);   writeln('massiv: ');   for i: =1 to n do    read(a[i]);   min: =a[1];   min2: =a[1];   for i: =1 to n do    begin      if a[i]< min then      begin        min: =a[i];         ind: =i;       end;     end;   for i: =1 to n do    begin      if (i< > ind) then if (a[i]< min2) then min2: =a[i];     end;   write(min,' ',min2); end.

Program z1; var i: byte;         s: longint; begin         i: =0;         while i< =99 do begin                 s: =42004+i*10;                 if (s mod 72)=0 then begin                         writeln(s)                         end;                 i: =i+1         end;         readln end.

Public class form1    private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click        dim g as graphics        g = picturebox1.creategraphics        g.drawellipse(pens.red, 75, 0, 50, 50)        g.drawellipse(pens.red, 50, 50, 100, 100)        g.drawellipse(pens.red, 0, 150, 200, 200)    end sub end classу вас получuтся снеговuк, только добавь на форму picturebox