"Если спрайт касается желтого цвета, то он должен сказать "Светит солнце!" или "Идёт дождь!"
Var i,r:integer;
p:real;
begin
write ('Введите число,r')
p:=3.14;
i=2*r*p;
writeln (Ответ ' ',i)
readln(i);
end;
Инф.объем = частота * время * разрядность * кол-во дорожек
1 мин = 60 сек
Дорожка 1 (т.к. В условии не сказано что их несколько)
1,3 мб = 1,3*1024*1024*8 бит
1,3*1024*1024*8 = частота * 60 * 8 * 1
1,3*1024*256 = частота * 15
Частота =1,3*1024*256 / 15
Осталось посчитать