1)Даны два целых числа. Вычислить сумму,разность, произведение и частное их квадратов.
2)дана сторона равностороннего треугольника. Найти его высоты и радиус описанной и вписанной окружности.

1)program task1;var x,y,xq,yq,sum,pro,cha,raz:integer;beginwrite('Введите числа:');readln(x,y);xq:=sqr(x);yq:=sqr(y);sum:=xq+yq;raz:=xq-yq;pro:=xq*yq;cha:=xq/yq;write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);end.2)program task2;var a,r,rr,h,s:real;begin  write('Введите длину стороны треугольника: ');  readln(a);  r := sqrt(3) * a / 6;  rr := 2 * r;  h := 3 * r;  s := a * h / 2;  Writeln('Радиус вписанной окружности ', r::2);  Writeln('Радиус описанной окружности ', rr::2);  Writeln('Высота треугольника ', h::2);  Writeln('Площадь треугольника ', s::2);end.