Прошу помочь мне с этими заданиями,очень быстро! Спасибо) сам не пойму

А)program sr;
var x,y:real;
begin
readln(x);
y:=(15*x*x)+(8*x)-9;
writeln(y)
end.

Б)program sr;
var a,b,c,d,k:real;
begin
readln(c,b,d,k);
a:=((b-c)*d)-k;
writeln(a)
end.

2.program srednee;
var a,b,c,sr:real;
begin
readln(a,b,c);
sr:=(a+b+c)/3;
writeln(sr);
end.

На случай,если A) и Б) должны были выполняться в одной программе:

program sr;
var a,b,c,d,k,x,y:real;
begin
readln(x);
readln(c,b,d,k);
y:=(15*x*x)+(8*x)-9;
a:=((b-c)*d)-k;
writeln(a);
writeln(y);
end.