segitiga

oleh :

arif zainurrohman

uses crt;

var

baris,kolom:integer;

begin

clrscr;

for baris:= 1 to 5 do

begin

for kolom:= 5 downto baris  do

write(kolom);

writeln;

end;

readln;

end.

uses crt;

var

        Bahasa:string[20];

        urutan,posisi:integer;

begin

        clrscr;

        bahasa:='54321';

        for urutan:= 1 to 5 do

        begin

        posisi := 7-urutan;

        delete(Bahasa,posisi,1);

        writeln(Bahasa);

end;

readln;

end.

Ibu Kota, 26 juni 2014

akhukumfillah arifzainurrohman