Создания алгоритма для программы на паскале

[Brunik]

Помогите составить алгоритм для программы (результат расписывать не надо)
например:
начало
|
введение данных
(x,y)
|
вычисление
(S=x+y)
|
вывод данных
(S)
|
конец

Условие программы:
Описать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (Х+ Y)/2 и среднее геометрическое GMean=√(X∙Y) двух положительных чисел X и Y (X и Y - входные, AMean и GMean - выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (А, В), (А, С), (A, D), если даны А,
B, С, D.

Код программы:
Program Zadanie1;
var
a,b,c,d:integer;
am,gm:real;
procedure Mean(x,y:integer;var AMean,Gmean:real);
begin
Amean:=(x+y)/2;
If x<y then
Gmean:=0
Else
Gmean:=sqrt(x-y);
end;
begin
writeln(‘Vvedite a:’);
readln (a);
writeln(‘Vvedite b:’);
readln (b);
writeln(‘Vvedite c:’);
readln (c);
writeln(‘Vvedite d:’);
readln (d);
mean(a,b,am,gm);
writeln(‘Mean(a,b) – Amean:=’,am:9:2,’ GMean:=’,gm:9:2’);
mean (a,c,am,gm);
writeln(‘Mean(a,c) – Amean:=’,am:9:2,’ GMean:=’,gm:9:2’);
mean (a,d,am,gm);
writeln(‘Mean(a,d) – Amean:=’,am:9:2,’ GMean:=’,gm:9:2’);
readln;
end.