Что будет выведено на экран после выполнения этой программы? s : = '123456789'; n : = pos ( '456', s); delete ( s, n+2, 3 ); writeln ( s );

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен