написать эти задачи на языке паскаль: Задача 1.3. Ввести два числа: число своего рождения и год рождения. Вывести эти числа в одной строке без формата и в двух строках с форматом m = 10, n = 3. Задача 1.4. Вывести 10 целых чисел, начиная от числа своего рождения по возрастанию с шагом +1 (использовать команду цикла Задача 1.5. Вывести 10 целых чисел, начиная от числа своего рождения по убыванию с шагом -2 (использовать команду цикла).

var
  l,a,b:integer;
  s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
   begin
   a:=pos('(',s);
   b:=pos(')',s);
   if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
   if (a=0) and (b>0) then writeln('Скобка не открыта');
   if (a>0) and (b=0) then writeln('Скобка не закрыта');
   if (a=0) and (b=0) then writeln('Текста в скобках нет');
  end;
end.

var
  n,i,k:integer;
  s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
  i:=pos(' ',t);
  delete(t,1,i);
  until i=0;
k:=length(t);
for i:=1 to k do
  if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.