Tugas Pascal UNSERA

Beberapa waktu yang lalu ada mahasiswa unsera semester dibawah saya yang bertanya tentang tugas pascal di forum yang kebetulan saya kelola. Didalam forum yang dia diatanyakan adalah tugas yang dulunya pernah saya dapatkan juga dari dosen sebagai tugas kelompok. Jadi ya kebetulan saya tau karane saya pernah dapat duluan tugas itu. Tugas yang dia tanyakan adalah seperti ini:

"assalamualaikum... mo nanya nich ma tmen2 smua,,, langsung aja ya.. Q ada tgas pascal gni,, klo qt input misal angka 5 output nya
1=1
1+2=3
1+2+3=6
1+2+3+4=10
1+2+3+4+5=15
jadi bnyak nya baris output tergantung input nya brapa,,, yang bisa tolong bantu ya.... makacih"

Karena saya pernah dapet tugas itu juga jadi saya bermaksud membantu menjawab tugas diatas, padahal sih sebenernya gak boleh ngasih tau yah !! he... tapi gak masalah asal sebagai pembelajaran. Oya, penyelesaian masalah diatas kira-kira seperti ini:

uses wincrt;
var i,m,o,d:integer;

begin
write('masukan nilai : ');readln(m);
for i:=1 to m do
begin
for o:=1 to i do
if i= o then
write(o)
else
write(o,'+');
begin
d:=d+i;
writeln(’=’,d);
end;
end;
readln;
donewincrt;
end.

Tolong dikoreksi lagi jika ada yang salah, bagi yang kebetulan ada tugas seperti ini juga mohon tidak menelannya mentah-mentah tapi wajib dipelajari. he..
Semoga bermanfaat.