Мне такого не давали решать, и я точно не знаю как это делается, сделал как мог...
Ответ:149E
http://reshinfo.com/v_hestnadcatirichnuju_3.php?sn=5278&sys=10&x=30&y=6
Var
a,b:integer;
Begin
writeln('Не вводите 44');
while b<>44 do
Begin
Writeln('Число, пожалуйста');
a:=a+b;
readln(b);
End;
Write(a,' - это сумма тех чисел, которые вы вводили');
End.
Вебклиент. Это ответ на твоё задание
Вариантов всего 15+13+20+10+30+23+8+18=137:25=5.4