Форум на Мурмане

А то уже все прайсы вроде перерыл..а нема что-то (http:////forum.murman.ru/images/smilies/sad.gif)

Есть в детском мире на первом этаже...

Видел в Волне на 3-ем зелененькие такие Чайнтеч, вроде..

program my;
     type mas=array [1..50] of integer;
     var  a:mas;b:integer;
procedure opis (var m:mas;n:integer);
     var i:integer;
     begin for i:=1 to n do
         m:=1 random(20);
    end;
procedure vivod (var m:mas;n:integer);
     var i:integer;
     begin for i:=1 to n do
       write (m,' ');
       writeln;
    end;

function resh (var m:mas;n:integer):real;
      var i:integer;p:real;
      begin p:=1;
      for i:=1 to n do
      p:=p*m;
      resh:=exp((1/n)*ln(p));
      end;
begin randomize;
      writeln('ўўҐ¤ЁвҐ n');
      readln (b);
      opis(a,b);
      vivod (a,b);
      writeln ('‘।­ҐҐ ЈҐ®¬ҐваЁзҐбЄ®Ґ а ў­® ',resh(a,b));
end.

program proga1;
     type mas=array [1..30] of integer;
     var  a:mas;b:integer;
procedure opis (var m:mas;n:integer);
     var i:integer;
     begin for i:=1 to n do
         m:=1 random(20);
    end;
procedure vivod (var m:mas;n:integer);
     var i:integer;
     begin for i:=1 to n do
       write (m,' ');
       writeln;
    end;

procedure resh (var m:mas;n:integer);
      var i,s,t:integer;
      begin s:=0;t:=0;
            for i:=1 to n do begin
          s:=s m;t:=t 1 end;
          writeln ('C㬬  н«Ґ¬Ґ­в®ў ¬ ббЁў  ',s, ' Љ®«ЁзҐбвў® н«Ґ¬Ґ­в®ў ¬ ббЁў  ',t);
      end;
begin randomize;
      b:=1 random(30);
      opis(a,b);
      vivod (a,b);
      resh(a,b);
      end.

хех... паскаль.. а зачем?

asdadwef

asdadwef