uses crt;
var x,y:real;
function phytagoras(var a,b:real):real;
var c:real;
begin
c:=sqrt((a*a)+(b*b));
writeln('Sisi miring : ',c:2:2);
end;
begin
clrscr;
write('Masukkan alas segitiga : '); readln(x);
write('Masukkan tinggi segitiga : '); readln(y);
phytagoras(x,y);
readln;
end.
Casino.com App | $10 No Deposit Bonus - JTM Hub
BalasHapusWith more than 500 games in 군산 출장안마 our 통영 출장마사지 casino 당진 출장마사지 games and a huge variety of table and 포항 출장마사지 slots, we can find a great deal of action 공주 출장샵 and excitement at the casino floor!