program diem_toan;

uses crt;

var diem:array[1..35] of real;

      n,i:byte;

begin

      clrscr;

      write('Nhap so hoc sinh: ');   readln(n);

      for i:=1 to n do

            begin

                  write('Nhap diem ban thu ',i,': ');   readln(diem[i]);

            end;

      writeln('Ket qua diem toan theo thu tu la:');

      for i:=1 to n do writeln(diem[i]:0:2);

      readln;

end.

uses crt;

var a:array[1..100] of integer;

n,i:integer;

begin

writeln('nhap so hoc sinh: ');readln(n);

writeln('nhap diem');

for i:=1 to n do

begin

write('a[',i,']');readln(a[i]);

end;

for i:=1 to n do write('hoc sinh ',i,' duoc ',a[i],' diem mon tin');

readln

end.