Обычный паскаль! написать в тетради код программы, которая запрашивает у пользователя числа и считает их сумму до тех пор, пока пользователь не введет число 44. после этого программа должна прекратить запрашивать числа и вывести пользователю сумму. заранее !
var a,b:integer;
begin
b:=0;
while a<>44 do
begin
write('введите число ');
readln(a);
b:=a+b;
end;
write('сумма введённых чисел=',b);
end.