Pascal Mencari Pembagian Hewan Kurban

Program Pembagian_Hewan_Kurban;
uses wincrt;
var a,b,c,d,i:integer;
      v:real;
      m:real;
      x:real;
      ulang:char;

Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
Begin
clrscr;
writeln('Pembagian Hewan Kurban');
writeln('======================');
write('Masukan berat sapi=');
readln(a);
write('Masukan jumlah sapi=');
readln(b);
write('Masukan jumlah penerima daging kurban=');
readln(c);
write('Masukan jumlah penerima hadiah=');
readln(i);

d:=a*b;
v:=a*1/3/7;
m:=d*1/3/c;
x:=d*1/3/i;

writeln('Total Berat Sapi=',d,'Kg');
writeln('Pemilik Kurban=',v:00:2,'Kg');
writeln('Jatah Sedekah Perorang=',m:00:2,'Kg');
writeln('Hadiah=',x:00:2,'Kg');
Writeln('================================');
    Write('Created, Ardiansyah. B 20142205002. Mau menghitung ulang? [Y/T]: ');
    Readln(ulang);
    end;

end.
============================================================
Yang dimana hasilnya adalah sebagai berikut :