viết chương trình nhập từ bàn pím 3 số nguyên a,b,c. tính và đưa ra hình bình phương các số ko âm ai giúp mik với mai làm rồi

uses crt;

var a, b, c : integer;

begin

clrscr;

write('Nhap 3 so a, b , c : '); readln(a, b, c);

if a >= 0 then write(a,'^2 = ', a * a);

if b >= 0 then write(b,'^2 = ', b * b);

if c >= 0 then write(c,'^2 = ', c * c);

readln

end.

uses crt;

var a,b,c: integer;

begin

clrscr;

write ('nhap a: ');   readln (a);

write ('nhap b: ');   readln (B);

write ('nhap c: ');  readln (c);

writeln ('binh phuong cac so khong am la: ');

if a>=0 then writeln (sqr(a));

if b>=0 then writeln (sqr(b));

if c>=0 then writeln (sqr(c));

readln;

end.