Паскаль составьте программу определяющую какие из 4 заданных чисел делятся на 5

Var a,b,c,d:integer;
Begin
  Write(Введите 4числа: ); readln(a,b,c,d);
 if (a mod  5 = 0 ) then writeln(a, делится на 5 без остатка);
 if (b mod  5 = 0 ) then writeln(b, делится на 5 без остатка);
 if (c mod  5 = 0 ) then writeln(c, делится на 5 без остатка);
 if (d mod  5 = 0 ) then writeln(d, делится на 5 без остатка);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.