1. Составить программу, которая определяет количество прожитых вами лет на данный момент.

2. Найти сумму двух вводимых с клавиатуры чисел. Написать программу так, чтобы результат выводился полным ответом (напри-мер, 2+7=9, если были введены числа 2 и 7).

помогите составить вот эти программы в паскале и бейскике

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.