\(A=2x^2+2xy+y^2-2x+2y+1\)

\(=x^2+x^2+2xy+y^2+2x-4x+2y+1+4-4\)

\(=\left(x^2+y^2+1+2xy+2x+2y\right)+\left(x^2-4x+4\right)-4\)

\(=\left(x+y+1\right)^2+\left(x-2\right)^2-4\)

\(\left\{{}\begin{matrix}\left(x+y+1\right)^2\ge0\\\left(x-2\right)^2\ge0\end{matrix}\right.\)

\(\Rightarrow\) Giá trị nhỏ nhất của A là: -4

uses crt;

var toan,ly,hoa,van:byte; tb:real; ten:string;

Begin

clrscr;

write('Tinh dtb va Xep hang');

writeln('Nhap ten hs: ');

readln(ten);

write('Nhap diem Toan Ly Hoa Van: ');

readln(toan,ly,hoa,van);

tb:=(toan+ly+hoa+van)/4 (mấy môn này bình đẳng)

write(ten,tb:3:1,' ');

if tb>=8.0 then write('Hluc: Gioi');

else if tb>=6.5 then write('Hluc: Kha');

else if tb>=5.0 then write('Hluc: Tb');

else write('Hluc: Yeu');

readln

End.

uses crt;

var a:real;

Begin

clrscr;

write('Nhap vao so a: '); (bỏ bc này lun cũng đc)

readln(a);

write('So a la:',a:3:1)

readln

End.

***ể, mà pascal cũng thi hk nữa hả?

yo, mặc dù chưa phát phiếu báo điểm cơ mà pt điểm ròi, hk này rớt xuống hạng 2, zui

1-

uses crt;

var a,b,S,P:real;

Begin

clrscr;

write('Nhap hai canh HCN: ');

readln(a,b);

S:=a*b;

P:=(a+b)*2;

writeln('Dien tich HCN: ',S);

writeln('Chu vi HCN: ',P);

readln (Chỗ readln này ko cần ';' cũng đc)

End.

2-

uses crt;

var a,b:real;

Begin

clrscr;

write('Nhap hai canh HCN: ');

readln(a,b);

writeln('Dien tich HCN: ',a*b);

writeln('Chu vi HCN: ',(a+b)*2);

readln

End.