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