program thinh;
uses crt;
var tien:integer;
t:real;
begin
clrscr;
write('nhap so tien gui:'); readln(tien);
t:=tien+tien*0.2;
writeln(t:4:2);
readln;
end.
Program Sara_Trang;
uses crt;
var tien:integer;
t:real;
Begin
clrscr;
Writeln('Nhap so tien gui:'); Readln(tien);
t:=tien+tien*0.2;
Writeln('So tien thu duoc:',t);
Readln
End.