uses wincrt;

var nilai: array[1..3] of integer ;

jm,rata :real;

i : integer;

begin

writeln

for i:=1 to 3 do

begin

clrscr;

write (‘masukan data ke-1: ’);readln (nilai[1]);

write (‘masukan data ke-2:’) ;readln(nilai [2]);

write (‘masukan data ke-3:’); readln(nilai [3]);

jumlah := nilai[1]+nilai [2]+nilai [3] ;

rata := jumlah/3;

writeln;

writeln(‘jumlah nilai =’,jumlah 5:3’);

writeln(‘rata-rata nya =’,jumlah 5:3’);

readln;

end;

end.

OUTPUT

Masukan data ke-1 :50

Masukan data ke-2 :50

Masukan data ke-3:50

Jumlah nilai =150.00

Rata-ratanya =30.00