1)var a, b: integer; Begin readln(a, b); writeln(a*b); End.
2)var a: real; Begin write(Введите число в Кбайтах: ); readln(a); writeln(a * 1024 * 8, бит); End.
3) не понял
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.