Рылся у себя на флешке (в 16 гб запутаться, действительно, несложно) и наткнулся на папку TURBO, в которой лежал Turbo Pascal. Некоторые исходники моих программ там сохранились. Вот выкладываю программу, позволяющую по стоимости одного кг вывести стоимости 100 г, 200 г, 300 г и т.д. того же продукта. Кому-то такая программа покажется бессмысленной, может кто найдет ей применение. Я же ее когда-то писал с целью демонстрации работы цикла For.

uses crt;
var i : integer;
P : real;
begin
clrscr;
writeln ('ВВедите цену одного кг и нажмите <Enter> (копейки от рублей отделяются точкой)');
readln (P);
Writeln ('Вес, г        Стоимость, руб');
For i := 100 to 1000  Do
   begin
      if (i = 100) or (i mod 100 = 0) then
         Writeln (i,'        ',i*P/1000:6:2);
   end;
readln;
end.

Исходник «Определение стоимости граммов по стоимости килограммов»:

  kg.pas (342 bytes, 877 hits)