1)Отыскать СУММУ 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;

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