Program Alternatif Rata-Rata dengan Bahasa Pascal

program alternatifratarat;
var
total,a,b,c,d,e:integer;
rata_rata:real;
begin
writeln('program menghitung rata-rata bilangan');
write('masukakan kelima bilangan dipisahkan dengan spasi = ');readln(a,b,c,d,e);
total:=a+b+c+d+e;
writeln('total kelima bilangan adalah =',total);
rata_rata:=total/5;
writeln('rata-ratanya adalah =',rata_rata:4:2);
end.

Posted in: BAHASA PASCAL