Question

25баллов! Составить программу, которая просит вводить отрицательные числа, считает сумму введённых чисел. При вводе положительного числа программа заканчивает работу с выдачей сообщения «Работа завершена». ПАСКАЛЬ

Answer 1

program Hello;

var a, i:integer;

begin

 while a <= 0 do

   begin

Writeln ('Введите отрицательное число: ');

   Readln (a);

   if a > 0 then begin break;

   end;

   i:= i + a;

   end;

   Writeln (i);

   end.