MENCARI RATA RATA PENJUALAN DALAM PROGRAM PASCAL

Program RataRataPenjualan;
uses crt;
var
  ph1,ph2,ph3,ph4,ph5,rr:real;
begin
  clrscr;
  writeln('Program Mencari Rata Rata Penjualan');
  write('Input Penjualan Hari 1 =');readln (ph1);
  write('Input Penjualan Hari 2 =');readln (ph2);
  write('Input Penjualan Hari 3 =');readln (ph3);
  write('Input Penjualan Hari 4 =');readln (ph4);
  write('Input Penjualan Hari 5 =');readln (ph5);

  rrp :=(ph1+ph2+ph3+ph4+ph5)/5;
  writeln('Rata Rata Penjualan =',rrp:0:0);
  readln;
end.