9--------

uses crt;

var v,t:real;

begin

clrscr;

readln(v);

readln(t);

writeln('quang duong',v*t);

end.

10--------------

uses crt;

var ht:string;

ns:integer;

begin

clrscr;

write('nhap ten');

readln(ht);

write('nam sinh? : ');

readln(ns);

writeln(ht);

writeln(ns);

end.

Viết chương trình 1 :

uses crt;

var v, t, s : real;

begin

clrscr;

write('nhap van toc :');readln(v);

write('nhap thoi gian :');readln(t);

s := v * t;

writeln('quang duong :', s:3:1);

readln

end.

Viết chương trình 2 :

uses crt;

var s : string; n : integer;

begin

clrscr;

write('nhap ten : ');readln(s);

write('nhap nam sinh :');readln(n);

writeln('ten :', s);

writeln('tuoi :', 2021 - n);

readln

end.