Ответ:

program zadaca;

var

i:integer;

a:real;

begin

for i:=1 to 4 do

begin

Writeln('Введите число √',i);

Readln(a);

if a/3=trunc(a/3) then

Writeln('Число номер ',i,' со значением ',a:5:1,' кратно е трьом');

end;

readln;

end.

На фото результат программы (консоль) с любыми подобранными значениями.