uses crt;
var a : array[1..100] of real;
b : array[1..100] of real;
i, n : integer;
begin
clrscr;
write('Nhap so hoc sinh : '); readln(n);
for i := 1 to n do
begin
write('Nhap diem tin, li hoc sinh thu ', i ,' : ');
readln(a[i], b[i]);
end;
write('Diem tin : ');
for i := 1 to n do write(a[i] : 3 : 1,' ');
writeln; write('Diem li : ');
for i := 1 to n do write(b[i] : 3 : 1,' ');
readln
end.