program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
*проверил в паскале
1) var n: integer;
2) <span>_а
1) A:=2;
2) readln (x);
read (x);
3) ,
4) write (x);
writeln (x);
5) +,-,*,/,</span>
Там все просто - пише и ответ ::))) а выписывать тебе - сложно
http://ru.numberempire.com/factoringcalc...<span>
</span>