^^ Selamat Datang .. Suatu kehormatan bagi saya atas kunjungan anda .. saya sangat berharap kunjungan anda berikutnya, okeh - okeh jangan lupa yah ... ^^

Senin, 28 November 2011

PROGRAM GARIS

Posted by wakhidatul anikiyah 12.04, under | No comments

uses wincrt;

procedure garis;
var
x:integer;

begin
for x:=1 to 40 do
write('_');
writeln;
end;
{program utama}

begin
garis;
writeln('SELAMAT DATANG DI SERBA-SERBINYAKU');
garis;
end.

OUTPUT

0 komentar:

Posting Komentar