Напишите программу, которая получает на вход три вещественных числа и находим

Ну, наверняка это обязано выглядеть как то так. Я плохо помню паскаль

program Help;   Заголовок

var  Раздел с переменными

a, b ,c, summ : real;   Входные переменные и по итогу их сумма, вещественные

begin  Мыслю понятно

   summ := 0;   Инициализация summ, ибо статическая типизация

   writeln('Enter nums');   Программа попросит ввести числа

   readln(a);  Считывание

   readln(b);  Считывание

   readln(c);  Считывание

   if a gt; 0 then summ += a;  Если переменная а больше нуля, добавляем её к итоговой переменной

   if b gt; 0 then summ += b;  Аналогично

   if c gt; 0 then summ += c;   Подобно

   write(summ);   Выводим переменную summ на экран

end.