Файл размером 16 Кбайт передаётся через некоторое соединение со скоростью 2048 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 512 бит в секунду.

C++
#include <iostream>
#include <cmath>
#include <stdio.h>

using namespace std;
int main() {
int a,b,c,d,r,r2,r3;

cin >> a >> b >> c >> d;

r=min(a,b);
r2=min(r,c);
r3=min(r2,d);

cout << r3;
return 0;
}

Pascal
program Project1;

var a,b,c,d:integer;

begin
readln (a,b,c,d);

if ((a<=b) and (a<=c) and (a<=d)) then begin
writeln (a);
end

else if ((b<=a) and (b<=c) and (b<=d)) then begin
writeln (b);
end

else if ((c<=b) and (c<=a) and (c<=d)) then begin
writeln (c);
end

else begin
writeln (d);
end;

end.