Информатика: составить программу вывода на экран суммы чисел больших 30 введенных с клавиатуры паскаль

Программа на языке Паскаль для вывода суммы чисел, больших 30, введенных с клавиатуры:

program CalculateSum;
var
  num, sum: integer;
begin
  sum := 0;
  
  repeat
    write('Введите число: ');
    readln(num);
    if num > 30 then
      sum := sum + num;
  until num = 0;
  
  writeln('Сумма чисел больше 30 равна: ', sum);
end.

Скопируйте программу выше и выполните в среде, которая поддерживает язык Паскаль. Она будет запрашивать числа с клавиатуры, а затем выводить сумму чисел, больших 30. Когда вы хотите закончить ввод чисел, введите 0.