Rumus Turbo Pascal 1

uses wincrt;

var

A1,A2,A3,Hsl1,Hsl2:real;

Begin

write ('masukkan angka pertama:');Readln (A1);

write ('masukkan angka kedua:');Readln (A2);

write ('masukkan angka ketiga:');Readln (A3);

Hsl1:=A1*A2*A3;

Hsl2:=sqr(hsl1);

writeln ('hasil kalinya adalah:',Hsl1:2:2);

writeln ('hasil kuadratnya adalah:',Hsl2:2:2);

end.