pascal cơ bản ( 40đ dc chua may b oi..)

// 8
var ho_ten: string;
    bac_luong,ngay_cong,phu_cap,he_so_trach_nhiem,tam_ung: int64;
begin
    readln(ho_ten,bac_luong,ngay_cong,phu_cap,he_so_trach_nhiem,tam_ung);
    writeln((bac_luong/30*ngay_cong*he_so_trach_nhiem+phu_cap):0:0);
    write((bac_luong/30*ngay_cong*he_so_trach_nhiem+phu_cap-tam_ung):0:0)
end.

// 9
var x,y,z: real;
begin
    readln(x,y,z);
    write(x*x+y*y+z*z);
end.

// 10
var van,toan,ly,sinh,anh: real;
begin
    readln(van,toan,ly,sinh,anh);
    write((van*3+toan*2+ly*2+sinh+anh)/9:0:2);
end.

câu 8:

uses crt;
var hvt: string;
bl,nc,pc,hs,tu,tl,tlinh: real;
begin
 clrscr;
  write('nhap ho va ten: '); readln(hvt);
  write('nhap bac luong: '); readln(bl);
  write('nhap ngay cong trong thang: '); readln(nc);
  write('nhap phu cap: ');  readln(pc);
  write('nhap he so trach nhiem: ');  readln(hs);
  write('nhap so tien tam ung: ');  readln(tu);
  tl:=bl/30*nc*hs+pc;
  tlinh:=tl-tu;
  writeln('tien luong: ', tl:1:2);
  writeln('tien linh: ', tlinh:1:2);
 readln;
end.

câu 9:

uses crt;
var x,y,z,kq: real;
begin
 clrscr;
  write('nhap x: '); readln(x);
  write('nhap y: '); readln(y);
  write('nhap z: '); readln(z);    
  kq:=sqr(x)+sqr(y)+sqr(z);
  writeln('Ket qua: ',kq:1:2);
 readln;
end.

câu 10:

uses crt;
var t,l,s,a,v,tb: real;
begin
 clrscr;
  write('nhap diem toan: '); readln(t);
  write('nhap diem li: '); readln(l);
  write('nhap diem sinh: '); readln(s);
  write('nhap diem anh: '); readln(a);
  write('nhap diem van: '); readln(v);
  tb:=(v*3+t*2+l*2+s+a)/9;
  writeln('Trung binh: ',tb:1:2);
 readln;
end.