membuat kalkulatar penghitung elastisitas via PASCAL

menghitung elastisitas secara manual sangatlah sulit bukan??,,oleh karena itu dengan Rahmat Tuhan YME dan didorongkan oleh sebuah tugas profesi saya yakni sebagai pelajar
(tugas TIK),, dengan ini saya menyediakan beberapa tahap yang harus anda ketik di program PASCAL yakni:

uses wincrt;
Var
F,l,A,dltl:real;
Begin
write ('masukkan Gaya:'); Readln (F);
write ('masukkan panjang awal:'); Readln (l);
write ('masukkan luasnya:'); Readln (A);
write ('masukkan pertambahan panjang:');Readln(dltl);
Hsl:=(F*l)/(A*dltl);
writeln ('Elastisitasnya adalah:',Hsl:5:5);
End.

SELAMAT kalkulator anda sudah siap dipakai,, bila kalian ingin memakai kalkulatornya,,tinggal upload di 4shared lalu download ..yeee!!!