Задача на Паскал

[CSKAFENKA]

Напишете програма, която въвежда отрицателни числа от клавиатурата и изчислява тяхното произведение, докато се въведе число, равно на 0. Да се изведе на екран изчислената стойност и броя на въведените числа.

[Anf3tamin4o]

Program CSKAFENKA;
uses
crt;
var
PrOtr,Temp:Real;
Count:Integer;
begin
clrscr;
PrOtr:=1.0;
Count:=0;
  Repeat
   Write('Vavedete chislo t klaviaturata:');
   Readln(Temp);
    if Temp<0 then
         begin
          Count:=Count+1;
          PrOtr:=PrOtr*Temp;
         end;
  Until Temp=0;
Writeln('Proizvedenieto na otricatelnite elementi e:',PrOtr:0:2  ,' i tehniqt broi e:',Count);
Writeln('Press Enter to exit...');
Readln;
end.

[CSKAFENKA]

Мерси