Răspunsuri

2014-11-10T01:03:42+02:00
Program p1;
var a,b,aria:real;
Begin
write('Introduceti catetele triunghiului dreptunghic:');readln(a,b);
aria:=(a*b)/2;
writeln('Aria triunghiului este:',aria);
readln;
End.