Помогите пожалуйста, а так же нужно, чтобы все было на языке паскаль.. пж-пж..

1)var a,b,c,d,k:real;
begin
read(a,b,c,d);
k:=(a+b+c+d)/4;
writeln(k);
end.

2)var x,y,t:integer;
begin
read(x,y);
t:=x;
x:=y;
y:=t;
writeln(x,' ',y);
end.

3)var a,b,c,d:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
writeln(d);
end.

Помогите пожалуйста, а так же нужно, чтобы все было ** языке паскаль.. пж-пж..