Срочно информатика помогите

Я несколько не понял задание: в смысле чисел, значения которых больше 50? Числа вводятся с клавиатуры и, если они больше 50 (оба), то найти их сумму? Числа генерируются генератором случайных чисел и, если их значения больше 50 (обоих), найти их сумму? Или они начинаются, например, от 0 и прибавляют к себе "1" и постоянно выводится на экран сумма чисел, как только каждое из них будет больше 50?

На всякий случай пишу все 3 программы. В ответе 1-ую, а остальные - в комментариях к этому ответу.

1) Числа вводятся с клавиатуры (после ввода каждого из чисел нужно нажать Enter):

Program Summa_chisel;
uses crt;
var a, b, S: real;
begin
clrscr;
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: );
readln (b);
if (a>50) and (b>50) then begin
S:=a+b;
write ('Сумма чисел, которые >50 составляет: ', S);
end
else write ('1 из чисел или оба числа <50.');
readkey;
end.

program dz1;
uses crt;
const n=5;
Var i,s:integer;
A:array[1..n] of integer;
begin
s:=0;
for i:=1 to n do begin
write('a[',i,']='); read(a[i]);
end; clrscr;
for i:=1 to n do begin
write(a[i],'':3);
if (A[i]>50) then s:=s+a[i]; end;
writeln('':5,' summ :=',s);
end.

$array = array(45,50,51,52,53);
$sum = 0;
foreach ($array as $val){
if ($val>50){
$sum = $sum + $val;
}
}

echo $sum;