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

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

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

Program one;var a,b,c,k: integer;beginwriteln ('Введите числа, нажимая после каждого 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.