Tugas..............!!!

program no_1; Uses Wincrt ; Var I : Integer ; K : String ; Begin Writeln ('Masukkan kalimat yg akan ditampilkan :') ; Readln (K) ; Writeln ('Masukkan jumlah penampilan :') ; Readln (I) ; For I := 1 To I Do Writeln (k) ; End. Program no_2; Uses Wincrt ; Var I,J : Integer ; K,K2 : String ; Begin Writeln ('Masukkan kalimat yg akan ditampilkan :') ; Readln (K) ; Writeln ('Masukkan kalimat kedua yg ditampilkan :') ; Readln (K2) ; Writeln ('Masukkan nilai 1 :') ; Readln (I) ; Writeln ('Masukkan nilai 2 :') ; Readln (J) ; For I := 1 To I Do Begin For J := 1 To J Do Write (K :8 , K2 :3) ; Writeln ; End; End.¬¬ Program No_3; Uses Wincrt ; var num :array[1..10] of longint; i,j,n,batas:integer; begin readln(n); num[1]:=1; writeln(1); for i:=1 to n do begin batas:=(i+1) div 2; if not odd(i) then num[batas+1]:=num[batas]*2; for j:=batas downto 2 do num[j]:=num[j]+num[j-1]; for j:=1 to batas do write(num[j],' '); if not odd(i) then write(num[batas+1],' '); for j:=batas downto 1 do write(num[j],' '); writeln; end; end.¬¬ Program no_4; Uses wincrt; Var x,i,j : integer; Begin j := x*i; Readln (x); For i := j*i to x do Writeln (i:8, i*x:8); i := j*x; Readln (i); For i := x*j to i do i := x * j; For j := i*x to j do j := i * x; For x := j*i to x do x := j * i; Writeln (x); readln (j); End. Program No_4; uses wincrt; var matriks1, matriks2, matriks_hasil1, matriks_hasil2: array[1..3, 1..3] of integer; i, j,k,l: integer; begin Randomize; for i :=1 to 3 do for j:=1 to 3 do begin matriks1[i,j]:=random(5); matriks2[i,j]:=random(5); end; writeln('Matriks 1'); for i:=1 to 3 do begin for j:=1 to 3 do begin write(matriks1[i,j]:5); end; writeln; end; writeln('Matriks 2'); for i:=1 to 3 do begin for j:=1 to 3 do begin write(matriks2[i,j]:5); end; writeln; end; for i:=1 to 3 do for j:=1 to 3 do begin l:=0; for k:=1 to 3 do l:=l + matriks1[i,k] * matriks2[k,j]; matriks_hasil1[i,j]:=l; matriks_hasil2[i,j]:=matriks1[i,j]+matriks2[i,j]; end; writeln('Hasil perkalian matriks 1 dan matriks 2'); for i:=1 to 3 do begin for j:=1 to 3 do begin write(matriks_hasil1[i,j]:5); end; writeln; end; end.