Описать алгоритм на псевдокоде не могу!

[tolyanl1985]

нужно данный алгоритм описать на псевдокоде ну там (кон, пока, вывод)! ПОМОГИТЕ ПОЖАЛУЙСТА!!!

program Posledovatelnost;
var
a, b: integer;
t: boolean;

begin
t := false;
Writeln(
'Введите через пробел последовательность положительных чисел, окончание ввода "0"');
read(a);
b := 1;
while a <> 0 do
begin
if a > 0 then
begin
b := b * a;
t := true;
end;
read(a);
end;
if t then
Writeln('Произведение положительных чисел последовательности = ', b)
else
Writeln('В последовательности кроме нуля нет элементов');
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[tolyanl1985]

ИЗВИНЯЮСЬ торопился просто