program penjumlahan;

var

        nilai1,nilai2 : array [1..10] of integer ;

        a,hasil       : integer;

begin

        write('Nilai 1 :');

        for a := 1 to 10 do

        begin

                readln(nilai1[a]);

        end;

        write ('Nilai 2 :');

        for a := 1 to 10 do

        begin

                readln(nilai2[a]);

        end;

        write('Nilai 1 :');

        for a :=1 to 10 do

        begin

        write(' ',nilai1[a]);

        end;

        writeln();

        write('Nilai 2 :');

        for a :=1 to 10 do

                 begin

                 write(' ',nilai2[a]);

                 end;

                 writeln();

        write('Hasil  : ');

        for a := 1 to 10 do

        begin

                hasil := nilai1[a] + nilai2[a];

                write(hasil,' ');

        end;

        readln;

end.

Program pop_push;

uses wincrt;

const elemen =255; {batas maximum karakter}

type S255 = string [elemen];

 tumpukan = record
 isi : s255;
 atas : 0..elemen;
end;

var
T : tumpukan;
W : char;
kalimat : s255;
i,j : integer;

procedure awalan (var T : tumpukan);
begin
 T.Atas := 0;
end;

procedure push (var T : tumpukan; X : char);
begin
 T. Atas := T.Atas+1;
 T.Isi[T.Atas] := X;
end;

function pop (var T : tumpukan): char;
begin
 pop := T.Isi[T.Atas];
 T.atas := T.atas-1;
end;

begin {program utama}
 clrscr; {melakukan proses push}
 writeln('Masukkan Kalimat : ');
 read(kalimat);
writeln;
 for i := 1 to length (kalimat) do
 push (T, kalimat [i]);
 write('Elemen yang di-push : ', kalimat);
 writeln;
 readln;

{melakukan proses pop}
for i := 1 to length (kalimat) do
push (t, kalimat [i]);
writeln;
writeln('Hasil akhir push dibaca dengan pop : ');
{menampilkan hasil proses pop}
for j := 1 to length (kalimat) do
begin
 w := pop (T);
 write(w);
end;
readln;
end.

Program Penjumlahan_matriks;
uses wincrt;
var
matrik1, matrik2 , hasil : array[1..3,1..2] of integer;
i , j : integer;


begin
clrscr;

{ input matrik ke satu }
writeln(' Elemen Matrik Satu');
for i := 1 to 3 do
     begin
     for j := 1 to 2 do
          begin
          write('Masukan Elemen Baris -',i,' Kolom -',j,' : ');
          readln(matrik1[i,j]);
     end;
end;

{input matrik ke dua}
writeln('Elemen Matriks Dua');
for i:= 1 to 3 do
     begin
     for j:= 1 to 2 do
          begin
          write('Masukan Elemen Baris -',i,' Kolom -',j,': ');
          readln(matrik2[i,j]);
    end;
end;

{proses penjumlahan tiap elemen}
for i := 1 to 3 do
     begin
     for j:= 1 to 2 do
          begin
          hasil[i,j]:= Matrik1[i,j]+Matrik2[i,j];
     end;
end;

{proses cetak hasil}
writeln('');

for i:= 1 to 3 do
    begin
    for j:= 1 to 2 do
         begin
         write(matrik1[i,j]:4);
         end;
         writeln;
    end;
writeln('+');

for i:= 1 to 3 do
    begin
    for j:= 1 to 2 do
         begin
         write(matrik2[i,j]:4);
         end;
         writeln;
    end;

writeln('=');
for i:= 1 to 3 do
    begin
    for j:= 1 to 2 do
         begin
         write(hasil[i,j]:4);
         end;
         writeln;
    end;
readln;
end.