[zerg]

Предлагаю оценить сайт, посвященный русскоязычному программированию http://rus.24bb.ru

[Aristarh Dark]

На счет "русскоязычных языков".
Вод код, не помню уже для чего писался, но компилится на Delphi 2006 и работает на ура

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

program Project1;   {$APPTYPE CONSOLE}   uses   SysUtils; type   Деньга = record     Достоинство:integer;     Количество:integer;   end;   var   Лопатник: array of Деньга;   procedure ПоложитьНаЛопату(Купюра:Integer); var   I: Integer;   УжеПоложили:Boolean; begin   if Купюра=0 then     Exit;   УжеПоложили:=False;   for I := low(Лопатник) to High(Лопатник) do     if Лопатник[i].Достоинство=Купюра then       begin         inc(Лопатник[i].Количество);         УжеПоложили:=True;       end;   if not(УжеПоложили) then     begin       SetLength(Лопатник,Length(Лопатник)+1);       Лопатник[High(Лопатник)].Достоинство:=Купюра;       Лопатник[High(Лопатник)].Количество:=1;     end; end;   var   Купюра:integer;   i:integer;   ВсегоНаЛопате:integer; begin   repeat     Readln(Купюра);     ПоложитьНаЛопату(Купюра);   until Купюра=0;   ВсегоНаЛопате:=0;   for I := low(Лопатник) to High(Лопатник) do     begin       WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));       inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);     end;   WriteLn(Format('All money - %d',[ВсегоНаЛопате]));   ReadLn; end.