Selasa, 11 November 2014

contoh:

program Latihan;

begin
   write('Hello');
   write('Hi');
   readln;
end.

Program Latihan_2;

var
   p:integer;
   l:integer;
   ls:integer;

begin
   write('panjang=');readln(p)
   write('lebar='):readln(l)

   ls:=p*l

   writeln('luas=',ls);
   readln;
end.

0 komentar:

Posting Komentar