Program Phytagoras dg PASCAL

Kali ini buat ngitung nilai sisi miring dengan rumus phytagoras yg tentunta dengan PASCAL. (Permintaan adik --> Nay)

Pogram phytagoras;
Uses crt;
Var a,b,c : Real;
Begin
     clrscr;
     write('Nilai alas (a) = ');
     readln(a);
     writeln('Nilai tinggi (b) = ');
     readln(b);
     c:=sqrt((a*a)+(b*b));
     writeln('Nilai sisi miring = ',r:2:2);
     readkey;
end.