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

program If4;

var

 N1, N2, N3, Res : Integer;

begin

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

 Readln(N1);

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

 Readln(N2);

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

 Readln(N3);

 Res:=0;

 if N1>0 then Inc(Res);

 if N2>0 then Inc(Res);

 if N3>0 then Inc(Res);

 writeln(Res);

end.