Program Menghitung Rata Rata Lima Bilangan

program ratarata;
var
total,a,b,c,d,e:integer;
rata_rata:real;

begin
writeln('program menghitung rata rata lima bilangan');
write('masukkan bilangan pertama = ');readln(a);
write('masukkan bilangan kedua   = ');readln(b);
write('masukkan bilangan ketiga  = ');readln(c);
write('masukkan bilangan keempat = ');readln(d);
write('masukkan bilangan kelima  = ');readln(e);
total:=a+b+c+d+e;
writeln('maka totalnya adalah = ',total);
rata_rata:=total/5;
writeln('maka rata-rata adalah =',rata_rata:4:2);
end.

Posted in: BAHASA PASCAL