подсчитать количество положительных чисел среди чисел a, b, c. Так чтоб в Паскале программа выводилась, желательно уже подставьте значения

спасибо, однако с таким решением точно спалят что списыаала

Вы просили решение, Вы его получили. А если Вам надо, чтобы еще и "под Вас" писали - приводите примеры кода в вопросе...

А "списать" это решение нельзя, его нигде нет, кроме как тут.

если бы не говорилось про a, b, c, как про три имеющихся числа, эта задача вообще пишется в одну строчку.

begin ReadSeqReal(3).Where(t->t>0).Count.Println end.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var (a, b, c) := ReadReal3;

 var s := a > 0 ? 1 : 0;

 s += b > 0 ? 1 : 0;

 s += c > 0 ? 1 : 0;

 s.Println

end.

3.5 0 -5.1911