Очень безотлагательно!!!даю 34 баллов .Программка if 4 в паскале ABC

program If4;

var

 N1, N2, N3, Res : Integer;

begin

 Write('Введите перовое целое число: ');

 Readln(N1);

 Write('Введите 2-ое целое число: ');

 Readln(N2);

 Write('Введите третье целое число: ');

 Readln(N3);

 Res:=0;

 if N1gt;0 then Inc(Res);

 if N2gt;0 then Inc(Res);

 if N3gt;0 then Inc(Res);

 writeln(Res);

end.