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

2) дана сторона равностороннего треугольника. Найти его высоты и радиус описанной и вписанной окружности.

1)

program task1;

var x, y, xq, yq, sum, pro, cha, raz:integer;

begin

write ('Введите числа:') ;

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.