{Первая задача}
begin
var x: real;
  write('Введите значение x: '); read(x);
  var N:=((x>6) or (x=6))? (4*sqr(x)+3*x+15):(2*x+10);
  write('y(',x,')=',N:1:1);
end.

{Вторая задача}
begin
var k,p: real;
 writeln('Введите значения k,p: '); read(k,p);
 var N:= (7*Sqr(k)-4*p)/(2*k+p);
 write('Результат вычислений: ',N:1:1);
end.