Program tem13; uses crt; var n1, n2, s1, s2: longint; procedure sum (n: longint; var s: longint); var a: longint; begin s: =0; while n< > 0 do begin a: =n mod 10 s: =s+a; n: =n div 10; end; end; begin write ('введи два числа'); readln(n1, n2); sum(n1, s1); sum(n2, s2); if s1=s2 then write ('суммы цифр равны') else if s1> s2 then write ('сумма первого числа больше') else write ('сумма второго числа больше'); end. ввести ещё одну процедуру , !

var
n1,n2,s1,s2:longint;

procedure sum (n:longint; var s:longint);
var a:longint;
begin;
s:=0;
while n<>0 do
  begin
    a:=n mod 10;
    s:=s+a;
    n:=n div 10;
  end;
end;

procedure writing(s1,s2:longint);
begin;
if s1=s2 then write ('суммы цифр равны')
else
if s1>s2 then write ('сумма первого числа больше')
else write ('сумма второго числа больше');
end;

begin
write ('введи два числа');
readln(n1,n2);
sum(n1,s1);
sum(n2,s2);
writing(s1,s2);
end.

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

#include <iostream>
#include <list>

using namespace std;

int main() {
    list<int>mylist;
    //Делаем со списком, что хотим
    mylist.push_back(1);
    mylist.push_back(2);
    mylist.push_back(3);
    mylist.push_back(-4);
    mylist.push_back(5);
    for (auto i : mylist) {
        cout << i << " ";
    }
    cout << "\n";
    //Удаляем последний отрицательный элемент
    auto it = mylist.end();
    while (*it > 0) {
        if (it == mylist.begin()) {
            cout << "Not found.\n";
            return 0;
        }
        it--;
    }
    //Делаем со списком, что хотим
    mylist.erase(it);
    for (auto i : mylist){
        cout << i << " ";
    }
    return 0;
}