Составьте программы для решения задач Задача 1. Найти площадь треугольника по двум сторонам и углу между ними. Величину Угла вводить в градусах. Ответ дать с точностью до трёх знаков после запятой Задача 2. Представить в исходном пятизначном числе из интервала [10000; 32767] вторую и третью цифры местами. Например: Входное число 12345, выходное 13245.

Program zad1;

Uses Crt;

var alfa, a, b, S:real;

begin

clrscr;

write ('Введите сторону a:') ;

readln (a) ;

write ('Введите сторону b:') ;

readln (b) ;

write ('Введите угол между сторонами:') ;

readln (alfa) ;

S:=0.5*a*b*sin (alfa) ;

writeln;

writeln ('Площадь треугольника равна:', S:3:3) ;

readkey;

end.

Program zad2;

Uses Crt;

var s:string[5];

c:char;

begin

clrscr;

write ('Введите пятизначное число:') ;

readln (s) ;

c:=s[3];

s[3]:=s[2];

s[2]:=c;

writeln ('Выходное число:', S) ;

readkey;

end.