Program hitung rata rata

program hitung_rata_rata;
uses crt ;
var mk1,mk2,mk3,mk4,a,b :real;
begin
clrscr;
write ('masukan nilai 1:'); read(mk1);
write ('masukan nilai 2:'); read(mk2);
write ('masukan nilai 3:'); read(mk3);
write ('masukan nilai 4:'); read(mk4);
a := (mk1+mk2+mk3+mk4);
b := (a/4);
writeln ('Nilai rata rata anda yaitu =',b:0:0);
readkey;
end.