Скорость передачи данных по некоторому каналу связи равна 256 000 бит/с. передача файла через это соединение заняла 1,5 мин. определите размер файла в килобайтах.

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.