PascalABC
дано целое число.Верно ли,что в числе нет 5?

Var A:integer;B:boolean;BeginB:=true;Write('A = ');Read(A);While A>0 do   Begin   if A mod 10 = 5 then B:=false;   A:=A div 10;   End;if B then WriteLn('Верно')else WriteLn('Не верно')End.