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

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.

Решение на pascal (если не подходит - скажите): program pediatr; var   h_old, h_new, w_old, w_new: integer; begin   write('введите рост ребёнка месяц назад (в см): ');   readln(h_old);   write('введите рост ребёнка сейчас (в см): ');   readln(h_new);   write('введите вес ребёнка месяц назад (в г): ');   readln(w_old);   write('введите рост ребёнка сейчас (в г): ');   readln(w_new);   if ( (h_new - h_old) > = 3 ) and ( (w_new - w_old) > = 700) then       writeln('ваш ребёнок развивается хорошо')   else       writeln('ваш ребёнок меньше нормы'); end.

Ответ в комментарии,для лучшей читаемости кода. program chicla; var a,b,c,d,f,sum: integer;   sr: real; begin  writeln('ââåäèòå ïåðâîå ÷èñëî');   readln(a) ;   writeln('ââåäèòå âòîðîå ÷èñëî');   readln(b);   writeln('ââåäèòå òðåòüå ÷èñëî');   readln(c);   writeln('ââåäèòå ÷åòâåðòîå ÷èñëî');   readln(d);   f: =a+b;   if f> 20 then  begin    f: =f-10;     writeln(f);   end  else    begin    f: =f+10;     writeln(f)    end;   if b> =0 then  begin    a: =a-1;     b: =b-1;     c: =c-1;     d: =d-1;     writeln('1 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ',a);     writeln('2 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,b);     writeln('3 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,c);     writeln('4 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,d);   end  else  begin    sr: =(a+b+c+d)/4;     writeln('ñðåäíåå àðèôìåòè÷åñêîå = ' ,sr);   end; end.