Составьте программу для вычисления площади прямоугольного треугольника по его катетам a и b. на строительных работах нужно отработать s часов, в подразделении n строителей. какова средняя загруженность одного человека? даны два действительных числа x и y. вычислить их сумму, разность, произведение и частное.

1)
var a,b:integer;
s:real; 
begin 
read(a,b); 
writeln('Площадь равна= ', (a*b)/2); 
end.

2) 
var s,n:integer; 
sr:real; 
begin   
read(s,n);   
writeln('Средняя загруженность на человека= ', s/n:1:2);   
end.

3)
var x,y:integer;
begin 
read(x,y); 
writeln('Сумма=', x+y); 
writeln('Разность=', x-y); 
writeln('Произведение=', x*y); 
 writeln('Частное=', x div y); 
 end.