Составить программу вычисляющую среднее арифмитическое и среднее 2-х чисел?

var a, b: real;

begin

  readln(a, b);

  writeln('среднее арифметическое: ', (a + b) / 2, ' , среднее : ', sqrt(a * b));

end.

Яконечно не уверен, но возможно правильно будет вот так: я пишу ответ к второй, к первой сейчас уже и не вспомню (студен, зашел на сайт, потому что ностальгия) дано: n = 256, х = 64 - количество строк, у = 40 - количество символов в строке, 1) i = log2n = log2256 = 8 бит = 1 байт - объем одного символа; 2)к = х*у*1 = 64*40*1 = 2560 символов - в тексте; ( 1 поставил потом что одна страница) 3) i = i*к = 1*2560 = 2560 байт = 2,5 кбайт - объем всего текста. чего то и вспомнить не чисто по теории там необходимо как и в первой действии найти объем одного 68.656 = 6.0368550621 пусть будет 6 байта один тогда ищем теперь сколько на 1 странице символов 128*48 = 6144 символов на одной странице ищем объем одной страница 6144*6 = 36864 байта = 36 кбайта. находим страницы 720 кбайт / 36 кбайта = 20 страниц. ну 1 точно правильно, во второй могут быть не )