uses crt;
var a,b,c:int64;
begin
clrscr; 
write('Nhap vao ba so ');readln(a,b,c);
writeln('Tong binh phuong cua ba so la ',a*a+b*b+c*c);
readln
end.

Sử dụng thêm biến tong để tính (giới hạn a,b,c<=30000):

program bai_giai;
uses crt;
var a,b,c,tong:longint;
begin
    clrscr;
    readln(a,b,c);
    tong:=a*a+b*b+c*c;
    write(tong);
    readln;
end.

Không dùng biến tong nên tổng có thể lớn hơn (giới hạn: a,b,c<=10^9)

program bai_giai;
uses crt;
var a,b,c:longint;
begin
    clrscr;
    readln(a,b,c);
    write(a*a+b*b+c*c);
    readln;
end.

Có thể thay thế a*a+b*b+c*c=sqr(a)+sqr(b)+sqr(c).

Trong đó sqr(x) là hàm trả về bình phương của x (=x*x)