Подсчитать и напечатать количество положительных элементов - Turbo Pascal

Формулировка задачи:

В компьютер вводится 4 символа. Компьютер должен подсчитать и напечатать количество положительных элементов.

 uses Crt;
Var a: Real;
       c, i: Integer;
begin
ClrScr;
  WriteLn('  Ввод чисел: ');
    c:= 0;
  for i:= 1 to 4 do begin
     ReadLn(a);
  if a > 0 then c:= c + 1;
  end;
  WriteLn(' Кол. полож. чисел= ',c);
  ReadLn
end.

На выходе имеем:

Ввод чисел:
12.4
21
9
8.25
  Кол. полож. чисел= 4

А можно числа вводить в одну строку? Символы в одну строку мы научились вводить (используя ваши ответы). Вот пример ввода символов в одну строку – даже без пробелов (отредактированная ваша программа).

uses Crt;
Var simvol: Char;
begin
ClrScr;
WriteLn(' Ввести символы в строку: ');
WriteLn('  Окончание ввода – символ f');
  repeat
Write('  ');  {Ввод символов без пробела}
  simvol:= ReadKey;
  Write(simvol);
until simvol = 'f';
  ReadLn
end.

На выходе имеем:

 Ввести символы в строку.
Окончание ввода – символ  f
G  J  D  :  W  f

Решение задачи: «Подсчитать и напечатать количество положительных элементов»

Листинг программы

  for i:= 1 to 4 do begin
    Read(a);
    if a > 0 then c:= c + 1;
  end;
  ReadLn;

Объяснение кода листинга программы

В данном коде происходит подсчет количества положительных чисел в последовательности. Вот список действий, которые происходят в коде:

Задается диапазон для цикла for от 1 до 4.
В каждой итерации цикла считывается значение переменной a.
Проверяется условие a > 0, если оно истинно, то значение переменной c увеличивается на 1.
После завершения цикла выводится значение переменной c, которое и является результатом подсчета положительных чисел. Также в конце кода есть команда ReadLn, которая считывает символ новой строки, чтобы программа могла корректно завершить работу.