Например клавиатура
................................
1.Да потому что в нем есть смысл
2.Нет. Это вопрос.
Вариант Б это же проооосто!
Ответ:
var
a, b: Real;
c : Integer;
begin
Write ('A, B = ');
ReadLn (a, b);
c := 0;
if a > 0 then
Inc (c);
if b > 0 then
Inc (c);
WriteLn ('Количество положительных = ', c);
ReadLn;
end.