1.Составте программу для нахождения граммов G в X унциях (1 унция = 28,35 грамма). Исходное количиство граммов задается с клавиатуры.

2.Напишите программу нахождения длин медиан m1, m2 и m3 треугольника по указанным формулам. Длины сторон a,b и c задаются с клавиатуры.

m1=...

m2=...

m3=...

const      x = 28.35;var    g : Real;begin    Write('Введите кол-во граммов: ');    ReadLn(g);     Writeln(g:0:3, ' грамм = ', g/x:0:3, ' унций.');    Readln;end.2:var      a, b, c : Integer;      m : Real;begin    Write('Введите сторону a: ');    ReadLn(a);    Write('Введите сторону b: ');    ReadLn(b);     Write('Введите сторону c: ');    ReadLn(c);     m := sqrt(2*sqr(b) + 2*sqr(c) - sqr(a))/2;    Writeln('Медиана к стороне a = ', m:0:3);    m := sqrt(2*sqr(a) + 2*sqr(c) - sqr(b))/2;    Writeln('Медиана к стороне b = ', m:0:3);    m := sqrt(2*sqr(a) + 2*sqr(b) - sqr(c))/2;    Writeln('Медиана к стороне с = ', m:0:3);    Readln;end.