Viết chương trình nhập vào 3 số a,b,c - kiểm tra 3 số đó có chia hết cho 3 không - nếu chia hêts cho ba tính giá trị của biểu thức S=√a+b+c

Câu 1:

If (a%3 == 0 )and (b%3 == 0 )and (c%3 == 0):

print((a+b+c)**(1/2))

Câu 2:

trong ảnh ạ 

mik giử bạn 

uses crt;
var a,b,c:longint;
    s:real;
begin
clrscr;
write('Nhap vao a = ');readln(a);
write('Nhap vao b = ');readln(b);
write('Nhap vao c = ');readln(c);
if (a mod 3 = 0) and (b mod 3 = 0) and (c mod 3 = 0) then
begin
  writeln('Co');
  s := sqrt(a+b+c);
  writeln('Gia tri cua bieu thuc = ',s:0:3);
end
else writeln('Khong chia het cho 3');
readln;
end.