Question

ПАСКАЛЬ!пожалуйста помогите

Answer 1

var 
a, b, c: real;
begin 
write('Стороны треугольника: '); 
read(a, b, c); 
write('Площадь треугольника: ', sqrt((((a + b + c) / 2)) * (((a + b + c) / 2)-a) * (((a + b + c) / 2)-b)*(((a + b + c) / 2)-c)));
end.


var 
num: integer;
begin 
write('Введите двузначное число: '); 
read(num); 
write('Произведение чисел данного числа: ', (num MOD 10) * (((num MOD 100)-(num MOD 10)) / 10));
end.