нужна Составить по блок-сxеме программу. На языке Паскаль.
Заранее

1 байт/с = 23 бит/с = 8 бит/с; 1 кбит/с = 210 бит/с = 1024 бит/с; 1 мбит/с = 210 кбит/с = 1024 кбит/с; 1 гбит/с = 210 мбит/с = 1024 мбит/с.

разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:

1) 6224

2) 64472

16*2*60/8 мего байт                                                               

program funkci9;

var y,x: integer;

begin

x: =-4;

writeln ('y         x');  

while x< =4 do

begin 

y: =abs(x+2)

writeln (y,'     ',x);

x: =x+1;

end:

readln

end.