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

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.