Даны три a, b, c числа целого типа. Найти количество положительных чисел — Pascal(Паскаль)

program dhahdajk;
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
counter:=0;
if a>0 then inc(counter);
if b>0 then inc(counter);
if c>0 then inc(counter);
writeln(counter);
end.

program laba;
  uses crt;
  var a,b,c:integer; k:byte;
begin
  readln(a,b,c);
  if a>0 then a:=1 else a:=0;
  if b>0 then b:=1 else b:=0;
  if c>0 then c:=1 else c:=0;
  k:=a+b+c;
  writeln(k);
end.