Program z; 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. составить блок схему