Buat program untuk menghasilkan keluaran sbb : PROGRAM PROGRA PROGR PROG PRO PR P

kamu minta bahasa pemrograman apa, coba aku bantu dengan menggunakan GUI pascal.. disini aku pakai fungsi copy() dari Unit SYSTEM insya allah klo ga salah

procedure potong;
var i:integer; s:string;
begin
 s := 'PROGRAM';
 for i := length(s) downto 0 do
 writeln(copy(s,0,i));
end;