Помогите.Дам 15 баллов

Для тебя в этом Паскале надобно написать?

15 баллов за 6 заданий, не мало-ли?
2.
var a, S:real;
begin
read(a);
S:=sgr(a);
write(S);
end.
3.
var d,L:real;
begin
read(d);
L:=3.14*d;
write(L);
end.
4.
var a,V,S:real;
begin
read(a);
V:=a*a*a;
S:=6*a*a;
write(V,' ',S);
end.
5.
var a,b,c,D,x,y:real;
begin
read(a,b,c);
D:=b*b-4*a*c;
x:=(-b+sqrt(D))/2*a;
y:=(-b-sqrt(D))/2*a;
write(x,' ',y);
end.
6.
var a,b,c:real;
begin
read(a,b);
c:=sqrt(sqr(a)+sqr(b));
write(c);
end.
Уроде усё