1)найти сумму двух чисел(функции) с процедуры и функции ,используя эти 2 оператора 2)составить программу вычисления квадратного уравнения с

Pascal.

finction Summ(x,y:integer):integer;
begin
result:=x+y;
end;

procedure Summ(x,y:integer; var result:integer);
begin
result:=x+y;
end;

Квадратное уравнение - сам. Главное, не забудь при вычислении дискриминанта, что квадратный корень нельзя извлекать из отрицательного числа. Во всяком случае в школе.