Flowchart, Pseucode, dan Program Pascal Array

pseucodenya

pseucode:

deskripsi

type
nilai=array [1..3] of string;
var
x:integer;
a:nilai;

deklarasi

clrscr;

for x:=1 to 3 do
begin;

write(‘input ke – ‘,x,’ = ‘);
readln(a[x]);

writeln(‘ output ‘);
writeln;

writeln(a[3]);
writeln(a[2]);
writeln(a[1]);

end.

program 

program aray;

program aray;
uses crt;

type
nilai=array [1..3] of string;
var
x:integer;
jumlah,rata_rata:real;
a:nilai;


begin
clrscr;
for x:=1 to 3 do
begin;
  write('input ke - ',x,' = ');
  readln(a[x]);


  end;
  writeln;
  writeln('   output  ');
  writeln;

  writeln('input 3  = ',a[3]);
  writeln('input 2  = ',a[2]);
  writeln('input 1  = ',a[1]);

  writeln;
  writeln;

  writeln(' REKSAGAMA RABBANI');
  writeln(' 01TPLE009               ');
  writeln;
  writeln(' PRESS ENTER TO EXITT      ');




  readln;
  end.