Школьный компьютер принял 1 Мбайт информации за 32 минуты по локальной сети. Вычислите скорость получения этой информации ​

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

моя улица в солнечной системе. это земля. она находится третьей от солнца. 

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.