ПОМОГИТЕ Добрые люди.  С клавиатуры вводятся дейстивительные числа и последовательно суммируются. Когда их сумма превысит 150, найти количество введенных чисел и  их сумму. Через оператор FOR пожалуйста.

Через for разве что так:var i,k:integer; a,s:real;begins:=0; k:=0;for i:=1 to 2 do begin read(a); s:=s+a; k:=k+1; i:=1; if s>150 then break end;write(k,' ',s)end.