Обусловьте, что делают последующие программки, и дополните команду вывода. var

Обусловьте, что делают последующие программки, и дополните команду вывода.

var x: integer;
a: boolean;
begin
write(Введите x =);
read(x);
a := x mod 10 = 0;
write(Число ... ,a);
end.