из с++ в паскаль

[ДмитрийР]

#include <iostream.h>
#include <math.h>
#include <conio.h>

int main()
{
int a, sum=1 ,sch=0;
do {
cout << "Vvedite chislo: " << endl;
cin >> a;
sch++;
if ((a>0)||(a<0)) sum=sum*a;
}
while (a!=0);
clrscr();
cout << "Rezultat = " << sum << endl;
getch();
}

может кто помочь перевести?

[Aleksandr H.]

uses crt;
var a,sum,sch:integer;
sum:=1;sch:=0;
repeat
writeln('vvedite 4islo');
readln(a);
sch:=sch+1;
if(a>0 or a<0) then sum:=sum*a;
until (a=0);
clrscr;
writeln('rezultat ',sum);
readln;
end.

[ДмитрийР]

Сообщение от Aleksandr H.

uses crt;
var a,sum,sch:integer;
sum:=1;sch:=0;
repeat
writeln('vvedite 4islo');
readln(a);
sch:=sch+1;
if(a>0 or a<0) then sum:=sum*a;
until (a=0);
clrscr;
writeln('rezultat ',sum);
readln;
end.

Огромное спасибо