Скорость передачи данных по локальной сети запрашивается у пользователя и измеряется в битах в секунду. ученик качал игру т минут (время запрашивается у пользователя). рассчитайте и выведите на экран размер файла (в гбайтах), который скачал ученик и сколько денег придѐтся заплатить ему за трафик, если первый гбайт не оплачивается, а всѐ то, что сверху - по у рублей за гбайт (запрашивается у пользователя). нужно сделавть через pascal abc
var t,u:integer; s,tr:real;
begin
writeln('Введите скорость'); read(u);
writeln('Введите время'); read(t);
writeln('Введите трафик'); read(tr);
s:=(u*t)/8388608;
if s>1 then tr:=s/tr;
writeln('Размер файла = ',s, ' Гб');
writeln('Оплата = ',tr, ' руб');
end.