Ответ:

{Задача #5}

begin

 var N:string;

 write('Введите дату вашего рождения (день.месяц.год): '); readln(N);

 var D:='26/11/2020';

 {Если хотите проверить настоящую дату, замените на

 var D:=system.DateTime.Now.ToShortDateString;}

 if (D.Split('/').Last.ToInteger-N.Split('.').Last.ToInteger) < 18 then

   writeln('Ваш возраст меньше 18-ти лет, регистрация запрещена')  else

   writeln('Вам разрешено продолжить регистрацию');

end.

{Задача #6}

begin

 var x,y:real;

 write('Введите значение x: '); read(x);

 if x < 4 then y:= x+3 else

 if x > 5 then y:= 2*x+4 else

 y:= 1;

 write('y(',x,') = ',y);

end.

{Задача #7}

begin

 var x,k,y:real;

 write('Введите значения x,k: '); read(x,k);

 y:=((x < 1/2) and (k >= 1))? k+x:2*k-x;

 write('y(',x,') = ',y);

end.