Подсчитать сумму только положительных из трёх введенных чисел — Pascal(Паскаль)

var a,b,c,summa: integer;
begin
summa:=0;
writeln('Enter a, b, c');
readln(a,b,c);
if (a>0) then summa:=summa+a;
if (b>0) then summa:=summa+b;
if (c>0) then summa:=summa+c;
writeln ('Result = ',summa);
readln;
end.

Program xXx;
Uses wincrt;
var
  n,a,b,c,s: integer;
Begin
  Write('Введите первое число: ');Readln(a);
  Write('Введите второе число: ');Readln(b);
Write('Введите третье число: ');Readln(c);
s:=0;
 If a>0 then s:=s+a;
If b>0 then s:=s+b;
If c>0 then s:=s+c;
Writeln('s=',s:5);
Readln;
End.