Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Program one;
var a,b,c,k: integer;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
readln (c);
k:=0;
If a>0 then k:=k+1 else k:=k+0;
If b>0 then k:=k+1 else k:=k+0;
If c>0 then k:=k+1 else k:=k+0;
writeln ('Количество положительных чисел ', k)
end.

Даны два числа. Вывести порядковый номер меньшего из них.

Program one;
var a,b,k: real;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
If a>b then k:=2 else k:=1;
writeln (k)
end.