1)составьте программу сортировки по озрастанию значений трех переменных: А, В, С

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

ребят помогите) 

CLSINPUT  aINPUT bINPUT  cIF b <= c AND b <= a THEN w = b: b = a: a = wIF c <= a AND c <= b THEN w = c: c = a: a = wIF c <= b THEN w = c: c = b: b = wPRINT a; b; cEND

CLSa:INPUT "введи a"; aIF a = 0 THEN PRINT "уравнение не квадратное": SLEEP 1: GOTO aINPUT "введи b"; bINPUT "введи c"; cD = b ^ 2 - 4 * a * cIF D < 0 THEN PRINT "нет решений": ENDx1 = (-b + SQR(D)) / (2 * a)x2 = (-b - SQR(D)) / (2 * a)PRINT "x1="; x1PRINT "x2="; x2