Question

Помогите с паскалем.С клавиатуры вводятся 5 натуральных чисел. Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).

Answer 1

program test;
var  a,i:integer;
begin
for i:=1 to 5 do
begin
readln(a);
if a mod 5 =0 then writeln('число ',a,' делиться нацело на 5');
end;
end.