Program mencari jarak GLBB

Program glbb;
Uses wincrt;

Var
Vo,s,t:integer;
V,Vt,a:real;

Begin
clrscr;
Write('Kecepatan awal (m/sekon)=');readln(Vo);
Write('Jarak tempuh(meter)=');Readln(s);
Write('Waktu tempuh (sekon)=');Readln(t);
V:=s/t;
Vt:=(2*V)-Vo;
a:=(Vt-Vo)/t;
Writeln('Maka kecepatan rata-rata adalah (m/s)=',V:2:1);readln;
Writeln('Sedangkan kecepatan akhirnya (m/s)=',Vt:2:1);readln;
Writeln('Jadi percepatan benda itu (m/s)=',a:2:1);readln;
Writeln('Programmer : Ahmad Abdul Alim');
Writeln('Jurusan : Teknik Informatika');
end.