Алгоритм программы

[zanyato]

Здравствуйте помогите пожалуйста с написанием Схемой основного алгоритма программы
Вот Постановка задачи,а также и сам код

1.Постановка задачи
Записать в ячейку P единицу, если все целые A,B, и С – положительны, минус единицу, если все отрицательны, и нуль, если они различны по знаку.

2. Формализация задачи
Решение данной задачи необходимо представить в трёх вариантах: с циклом
while, repeat и for. Все варианты объединить с помощью оператора выбора
case.

a,b,c,p:integer;
i:byte;
l:char;
begin
clrscr;
writeln('Chose operation:F-for ,R-repeat,W-while');
readln(l);
case l of
'F','f' :begin
writeln ('Enter 3 numbers');
readln (a,b,c);
for i:=1 to 3 do begin
if (a>0) and (b>0) and (c>0) then p:=1
else
if (a<0) and (b<0) and (c<0) then p:=-1
else
p:=0;
writeln('p=',p);
writeln('Enter 3 numbers ');
readln(a,b,c);
end;
end;

'r','R':begin
repeat
writeln ('Enter 3 numbers');
readln (a,b,c);
if (a>0) and (b>0) and (c>0) then p:=1
else
if (a<0) and (b<0) and (c<0) then p:=-1
else
p:=0;
writeln('p=',p);
until (a=0) and (b=0) and (c=0);
end;

'w','W':begin
writeln('Enter 3 numbers');
readln(a,b,c);
while not ((a=0)and(b=0)and (c=0)) do
begin
if (a>0) and (b>0) and (c>0) then p:=1
else
if (a<0) and (b<0) and (c<0) then p:=-1
else
p:=0;
writeln('p=',p);
writeln('Enter 3 numbers');
readln(a,b,c);
end;
end;
end;
end.