Вводим числа a и b
переменную k обнуляем
если а больше или равно 0, то инкрементируем k
если нет, то ничего не делаем.
переходим в обоих случаях к следующему циклу
если b больше или равно нулю, то инкрементируем k
если нет то нет.
результат выводим (k)
это наматывание счётчика k
var
a,b: integer;
begin
writeln('Введите два числа: ');
read(a,b);
writeln('Их сумма: ',a+b,'; Их разность: ',a-b,'.');
<span>end.</span>
<span>Минимальный объем дискового пространства,выделяемый для хранения файла, называется БИТ</span>