program VTS;
uses crt;
var v, t, s: real;
var A : integer;
begin
clrscr;
textcolor (green+blink);
writeln ('CHAO MUNG BAN DEN VOI CHUONG TRINH TINH TOAN "VTS"');
DELAY (550);
textcolor (lightblue);
WRITELN ('CHON CHUONG TRINH BAN CAN TINH');
delay (750);
textcolor (yellow);
writeln ('=> 1.tinh v');
writeln ('=> 2.tinh t');
writeln ('=> 3.tinh s');
textcolor (lightred);
write ('CHUONG TRINH TINH BAN CHON LA <1, 2, 3> : ');
readln (A);
Begin
if A=1 then
begin
writeln ('');
textcolor (lightblue);
write ('nhap quang duong <m> : ');
readln (s);
write ('nhap thoi gian <s> : ');
readln (t);
repeat
v:=v+1;
until v=s/t;
textcolor (green);
write ('=> van toc la <m/s> : ',v:4:2);
writeLN (' m/s');
writeln ('================== THE END ==================');
readln;
end;
if A=2 then
begin
writeln ('');
textcolor (lightblue);
write ('nhap van toc <m/s> : ');
readln (v);
write ('nhap quang duong <m> : ');
readln (s);
repeat
t:=t+1;
until t=s/v;
textcolor (green);
write ('=> thoi gian la <s> : ',t:4:2);
writeLN (' s');
writeln ('================== THE END ==================');
readln;
end;
if A=3 then
begin
writeln ('');
textcolor (lightblue);
write ('nhap van toc <m/s> : ');
readln (v);
write ('nhap thoi gian <s> : ');
readln (t);
repeat
s:=s+1;
until s=v*t;
textcolor (green);
write ('=> quang duong la <m> : ',s:4:2);
writeLN (' m');
writeln ('================== THE END ==================');
readln;
end;
if A > 3 then
begin
textcolor (white);
writeln ('');
writeln ('BAN DA CHON KHONG HOP LE VUI LONG CHON LAI (^_^)');
readln;
end;
end;
end.
