viết chương trình nhập phím 3 số nguyên a,b,c . tính và đưa ra màn hình bình phương các số không âm

Program NhatNgu;
Uses crt;
Var k,m,n,s: longint;
Begin
        Clrscr;
        Write('Nhap k: '); Readln(k);
        Write('Nhap m: '); Readln(m);
        Write('Nhap n: '); Readln(n);

        s:=0;
        If k<0 then s:=s+k*k*k
        Else s:=s+k*k;
        If m<0 then s:=s+m*m*m
        Else s:=s+m*m;
        If n<0 then s:=s+n*n*n
        Else s:=s+n*n;

        Write('S = ',s);
        Readln
End.

Program baitap;

Uses crt;

Var a,b,c:integer;

      S:longint;

Begin

Clrscr;

Write('Nhap lan luot ba so a,b,c');

Readln(a,b,c);

If a>0 then writeln('a^2=',sqr(a));

If b>0 then writeln('b^2=',sqr(b));

If c>0 then writeln('c^2=',sqr(c));

Readln

End.