var
a,b,c : array[1..j_baris,1..j_kolom] of integer;
baris, kolom : integer;

begin
clrscr;
color_background(white);
textcolor(blue);
writeln(’Penetapan nilai matrik A’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
write(’Baris ke-’,baris,’ Kolom ke-’,kolom,’:');
readln(A[baris,kolom]);
end;

textcolor(red);
writeln(’Penetapan nilai matrik B’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
write(’Baris ke-’,baris,’ Kolom ke-’,kolom,’:');
readln(B[baris,kolom]);
end;

textcolor(green+blink);
writeln(’Perhitungan sedang dilakukan’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
C[baris,kolom]:= A[baris,kolom]+B[baris,kolom];
end;

textcolor(yellow);
writeln(’Nilai matrik C’);
for baris:=1 to j_baris do begin
for kolom:=1 to j_kolom do
write(C[baris,kolom]);
writeln;
end;
readln;
end.

{program pengulangan menggunakan (while - do)
tampilkan Bilangan GENAP
kerjakan aksi SELAMA kondisi terpenuhi yaitu i<50
proses akan berhenti ketika nilai akhir i=49
}

uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}

var
i : integer;

Begin
clrscr;
i := 0;
while ( i<50 )
do
begin
i := i+2;
write(’ ‘,i);
end;
readln;
end.

{program pengulangan menggunakan Repeat - Until
menampilkan bilangan ganjil
kerjakan aksi SAMPAI kondisi terpenuhi yaitu i>50
proses akan berhenti ketika nilai akhir i=51
}

uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}

var
i:integer;

Begin
clrscr;
i:=1;
repeat
write(’ ‘,i);
i:=i+2;
until(i>50);
readln;
end.