berhitung

ses wincrt;

var
w:integer;
a,f:real;

procedure beban;
 var
   m: integer;
 begin
     writeln(' **** BEBAN **** ');
     writeln('==================');
     write('Masukkan Massa (kg)    : ');readln(m);
     w:=m*10;
     write(' Beban :  ',w,' Newton');
     writeln;
 end;

procedure kecepatan;
 var
   vt,vo,t: integer;
 begin
     writeln;
     writeln(' ### KECEPATAN ###  ');
     writeln('---------------------');
     write('Masukkan Kecepatan Akhir (Km/jam)   : ');readln(vt);
     write('Masukkan Kecepatan Awal (km/jam)    : ');readln(vo);
     write('Masukkan Waktu (Sekon)              : ');readln(t);
     a:=(vt-vo)*0.5*t*t;
     write(' Kecepatan :  ',a:2:0,' Km/Jam');
     writeln;
 end;

procedure gaya(w:integer; a,f:real);
 begin
     writeln;
     writeln('   ### GAYA ###      ');
     writeln('----------------------');
     f:=w*a;
     write(' Gaya :  ',f:2:0,' Newton');
 end;

begin
 writeln(' PROGRAM PENGHITUNGAN GAYA ');
 writeln('---------------------------');
 writeln;
 Beban;
 Kecepatan;
 Gaya(w,a,f);
end.