Program zadanie_1;
Var a,b:integer;
Begin
 Writeln('Введите текущий год');
 Readln(a);
 Writeln('Введите год рождения');
 Writeln('Примечание:Значение текущего года не должно быть меньше значения года рождения, иначе программа не будет исполняться');
 Readln(b);
 If a>b Then Writeln('Количество прожитых лет=',a-b) 
           Else Writeln('Количество прожитых лет=',a);
End.

Program zadanie_2;
Var a,b,s:real;
Begin
 Writeln('Введите два любых числа');
 Readln(a,b);
 s:=a+b;
 If b<0 Then Writeln(a,'+','(',b),')','=',s) else Writeln(a,'+',b,'=',s);
End.