Какую массу имеет мед, занимающий банку вместимостью 0,5 л

На Паскале это будет так:

Program Willa;
var
 n,a:integer;
begin
  write('Введите число A ');
  readln(a);
  write('Введите число N ');
  readln(n);
  writeln('');
  if a mod n = 0 then writeln('число N является делителем числа А')
else  writeln('число N НЕ является делителем числа А');
  writeln('');
end.