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

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;beginread(x,y);t:=x;x:=y;y:=t;writeln(x,' ',y);end.3)var a,b,c,d:real;beginread(a,b,c);d:=b*b-4*a*c;writeln(d);end.