Среднее арифметическое и геометрическое

[Sweet-_-Orange]

Задано описание данных:var A, B, SeA, SerG :real;
Оформить процедуру с именем Proc1, которая принимает две переменные A, B, и возвращает среднеарифметическое SeA и среднегеометрические SerG (корень квадратный из произведения переменных). Не использовать дополнительных переменных. Разработать работающую программу.

Помогите, что бы работало

 var A, B, SeA, SerG :real;
 Procedure Proc1(A:real; var B:real);
begin
SeA:=((A+B)/2);
SerG:=sqrt(A*B);
writeln('Vvedite A');
writeln('Vvedite B');
Proc1(A,B);
readln(SeA);
readln(SerG);
end;
end.

[whatever]

Уважаемый Sweet-_-Orange, это уже не первая твоя тема, в других были даны ответы с пояснениями, зачастую уже решенные задачи. И тем не менее ты продолжаешь писать мягко говоря "странные" программы. Одного взгляда на код достаточно, чтобы понять, что ты даже не пытался написать самостоятельно и даже не понимаешь, что у тебя в коде написано. Более того, программу ты тоже не запускал, видимо писал сразу в сообщении. Может пора начать думать самому?

[Вадим Мошев]

Автор темы, возьмите книжку по Турбо Паскалю и прочитайте/изучите материал вплоть до раздела, посвящённому использования своих подпрограмм.