Не уверенна , но вроде так
var i,n:real;
begin
read (n);
for i:=1 to 10 do
write (i*n/10)
end.
ОБЬЕСНЯЮ, НАРИСУЙ ОКНО, В ОКНЕ ДЕРЕВО С БУЛИНКАМИ И ЦЫФРАМИ, КАК ЭТО ЗДЕЛАЕШ РАЗКРАСИТЬ МОЖНО В ЯРКИЕ ЦВЕТА.....
Недостатки магнитных:
• Меньший объём
• Быстрее износятся
Недостатки оптических:
• Можно "залапать" диск
• Для записи новой информации необходимо (в большинстве случаев) удалить старую.