Cameh Site

uses wincrt;
type larik = array [1..10] of integer;
var data   : larik;
    n,i,max: integer;
begin
     write('banyak data =....');
     readln(n);
     for i:=1 to n do
     begin
          write('data ke ',i,' = ');
          readln(data[i]);
     end;
     max:=data[1];
   
     for i:=2 to n do
         if data[i]>max then
            max:=data[i];
     write('data =');
     for i:=1 to n do
     begin
          write(data[i],' ');
     end;
     writeln(' ');
     writeln('bilangan terbesar =',max);
     readln;
end.