ICT Bersama PasCal

uses wincrt;
var
Ep,m,g,h:real;
begin
write('masukkan massa benda:');readln(m);
write('masukkan gravitasi:')readln(g);
write('masukkan  tinggi benda:')readln(h);
Ep:=m*g*h;
writeln('energi potensialnya adalah:',Ep:5:1);
end.

my kindred spirit

We share secrets, we laugh and even cry,
We have so much in common,
Concerns, likes and dislikes.
Ours is a relationship joined by
Tender velvet chains that link our
similar dreams of life and love.
A gentle intuition guides us in our
individual struggles to succeed
at the things we pursue, to stand
out from the crowd.
In you I have found so much of myself,
Including many of the same
Insecurities and philosophies.
Complete inner-peace and happiness,
These are the things I wish for you,
in the present and in the future
because you are my kindred spirit.

Farewell of My Love

Is it really true our love is over now?
Can it be time for us to say goodbye?
Too soon, it’s much too soon, my love, for meYou smile with ease, but I can only sigh.We’ve shared our lives and given so much loveI can’t believe we’re really going to part;
You’re moving toward a new life without meI’m left with scars upon my broken heart.Go on now, if you must; I’ll get along;
How much it hurts, I don’t want you to know.
I’ll set you free without inducing guilt,
But as you leave, the silent tears will flow.I can’t be mad; I love you way too muchI’ll hide my sadness now, so you can’t tell.
Sweet happiness is what I wish for youFarewell my love, I hope that you fare well.

Just Friend's ????

You say that you like me,
But that we're just friendsCan I feel the same?
Well I think it dependsCan I quit breathing fast
Each time you appear?
Will my heart stop its pounding
Whenever you're near?I'd like to feel nothing,
And get rid of the thrill.
I wish I'd stop loving you,
But I don't think I will.