vara,b,i: integer;beginwriteln ('введи два числа');read (a,b);if a>b then writeln (a,'большее число')
else
writeln (b,'большее число') end.
1) 4 кбайт = 4096 байт - объем файла, который нужно передать