Вот ребусы на информатику
1 минута - 60 секунд
1000:60*36=600 (кб можно передать за 36 секунд при скорости 1000 кб/мин)
var
price:real;
i:byte;
begin
write('Введите стоимость 1 кг конфет ');
readln(price);
for i := 1 to 12 do
writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');
end.